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Palo Alto Tiny BASIC 
Version Three 

BY LI CHEN WANG 


This latest version of Li-Chen Wang's Palo Alto 
Tiny BASIC will run on either the 8080 or Z-80, 
and only uses 2K of core memory. It contains a 
number of nice features including command ab¬ 
breviations and error messages. A t the end of the 
listing is a cross reference table for symbols used 
in the program and also the object code for the 
program. For further information on Tiny BASICs, 
see Dr. Dobb's Journal Volume 1 for which there 
is a card at the back. Tapes of version 1 are avail¬ 
able from Community Computer Center (seep. 105). 


If you are unfamiliar with reading listings, here is 
the format used for this one: 


machine code assembly code 

line reference numbers y comments by line 


/ 


/ 


7 


/ 


FCA6 FI 1677 
F0A7 tS 1679 
F0A6 Ft. 03 1681 
FOAA CA53F0 1683 
FOAD 85 1685 
FOAE 5F 1687 
FOAF JE 00 1689 


F 083 2A8100 1696 
F 086 £8 1697 
F 087 CDE0F4 1699 
F06A 025DFS 1701 
F 080 220020 I70J 
FOCC 01 1705 
FOCI CDGdFo 1707 
F0C4 01 1709 
F0C5 £1 1711 
F0C6 CO 0 OF 6 1713 
F0C9 C36BF0 1715 


POP PS« 
PUSH H 
CPI 3 
JZ RSTART 
AOO L 
MOV E.A 
MVI A >0 
ADC H 
MOV 0 * A 
LMLO TXTLMT 
XCHG . 

CALL CCMP 
JNC CSORRT 
SMLD TxTUNF 
POP D 
CALL MVOJ6N 
POP 0 
POP H 
CALL PVUP 
JMP ST2 


THE LENGTH OF NEK LINE 
IS 3 CLINE • ANO CHI 
THEN 00 NOT INSERT 
MUST CLEAR THE STACK 
COMPUTE NEM TXTUNF 


OE-7NE6 UNFILLED AREA 
CHECK TO SEE IF THERE 

IS ENOUGH SPACE 
SORRY • NC ROOM FOR IT 
OK, UPDATE TXTUNF 
DE-7CL0 LNFILLEO AREA 

OE— >BEGIN, HL->ENO 

MOVE NE» LINE TO SAVE 
AREA 


& EXEC *** 


* THIS SECTION OF THE CODE 1ESTS 

* MATCH IS FOUND, CONTROL IS 

* ACCORDING TO THE TAeLEA 


A STRING AGAINST 
TRANSFEREO TO 


/ 


section comments 


THE 


TABLE. »HEN A 
SECTION OF COOE 


The line reference numbers start arbitrarily at 
1438 and have blocks of numbers missing. Their 
main relevance is for cross referencing the symbols 
and for keeping the lines of code in order. —Ed. 


Palo Alto Tiny BASIC (PATB) is one of the imple¬ 
mentations of Tiny BASIC proposed in People's 
Computer Company Newspaper and Dr. Dobb's 
Journal. However, there are some differences be¬ 
tween the original proposal and PATB. 

a) FOR - NEXT loop is implemented in PATB. 

b) PRINT format control is implemented in 
PATB. 

c) PATB uses semi-colons to separate com¬ 
mands and commas to separate items in the 
same command. E.g.: 

120 INPUT A, B, C; LET D=5, E=7; PRINT F, 
G, H 

d) Compare operator can be used in any expres¬ 
sion, not restricted to IF commands. 

e) PATB allows prompt strings in the INPUT 
command. Furthermore, if the input is not 
valid, the prompt is automatically repeated un¬ 
til a valid input is keyed in. 

f) PATB command keywords may be abbre¬ 
viated. 


Palo Alto Tiny BASIC, version 1, was originally published 
in Dr. Dobb's Journal of Computer Calisthenics and 
Orthodontia, Vol. 1 No. 5, May, 1976. 
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Version 1.0 of PATB was published in Dr. Dobb's 
Journal (Vol. 1, #5). Version 2.0 was published in 
Interface Age (Vol. 2, #1). The version presented 
here (Version 3.0) differs from the previous ones 
in that: 

a) The RST instructions are no longer used as 
CALL'S. This makes the program longer, but 
enables one to relocate the program to any¬ 
where in the address space. (RST instructions 
call subroutines on page 0.) 

b) A few JMP instructions are inserted so that 
the user can extend PATB by changing these 
JMP's. 

c) Some other small changes in PRINT com¬ 
mand. 

d) In Version 1.0 there, are two known bugs: 
FOR 1 = 1 TO 32767 will never end, and 
ABS(-32767-1) gives a negative result. In Ver¬ 
sion 2.0, there is one known bug: ABS(0) gives 
an error. These bugs are fixed in Version 3.0. 

THE LANGUAGE 

NUMBERS 

All numbers are integers and must be between 
-32767 and 32767. 

VARIABLES 

There are 26 variables denoted by letters A 
through Z. There is also a single array @(l). The 
dimension of this array (i.e., the range of values of 
the index I) is set automatically to make use of all 
the memory space that is left unused by the pro¬ 
gram (i.e., 0 through SIZE/2, see SIZE function 
below). 

FUNCTIONS 

Without extension, there are only 3 functions. 
More functions can be added as extensions. 

ABS(X) gives the absolute value of X. 

RND(X) gives a random number between 1 
and X (inclusive). 

SIZE gives the number of bytes left unused 
by the program. 


ARITHMETIC AND COMPARE OPERATORS 

/ divide. (Note that since we have integers 
only, 2/3=0.) 

* multiply. 

- subtract. 

+ add. 

> (compare) greater than. 

( (compare) less than. 

= (compare) equal to. (Note that to certain 

versions of BASIC 'LET A=B=0' means 
'set both A and B to O'. To this version of 
Tiny BASIC, it means 'set A to the result 
of comparing B with O'.) 

# (compare) not equal to. 

> = (compare) greater than or equal to. 

< = (compare) less than or equal to. 

+, -, *, and / operations result in a value between 
-32767 and 32767. (-32768 is also allowed in some 
cases.) The result of any comparison is 1 if true, 0 
if not true. 

EXPRESSIONS 

Expressions are formed with numbers, variables, 
and functions with arithmetic and compare opera¬ 
tors between them. + and — signs can also be used 
at the beginning of an expression. The value of an 
expression is evaluated from left to right, except 
that * and / are always done first, + and - next, 
and compare operators the last. Parentheses can 
also be used to alter the order of evaluation. 

STATEMENTS 

A Tiny BASIC statement must consist of a state¬ 
ment number between 1 and 32767 followed by 
one or more commands. Commands in the same 
statement are separated by a semi-colon. 

GOTO, STOP, and RETURN commands must be 
the last command in any given statement. 

PROGRAM 

A Tiny BASIC program consists of one or more 
statements. When a direct command RUN is 
issued, the statement with the lowest statement 
number is executed first, then the one with the 
next lowest statement number, etc. However, the 
GOTO, GOSUB, STOP, and RETURN commands 
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can alter this normal sequence. Within the state¬ 
ment, execution of the commands is from left to 
right. The IF command can cause the execution of 
all commands to its right in the same statement to 
be skipped. 

COMMANDS 

Tiny BASIC commands (un-extended) are listed 
below with examples. More commands can be 
added as extensions. Remember that commands 
can be concatenated with semi-colons. In order to 
store the statement, you must also have a state¬ 
ment number in front of the commands. The state¬ 
ment number and the concatenation are not 
shown in the examples. 

REM OR REMARK COMMAND 

REM causes the interpreter to ignore the rest of 
the line. This allows the programmer to put re¬ 
marks in the program. 

LET COMMAND 

LET A=234 - 5 * 6, A=A/2, X=A - 100, 

@(X + 9)=A - 1 

will set the variable A to the value of the expres¬ 
sion 234 - 5 * 6 (i.e., 204), set the variable A 
(again) to the value of the expression A/2 (i.e., 
102), set the variable X to the value of the expres¬ 
sion A - 100 (i.e., 2), and then set the variable 
@(11) to 101 (where 11 is the value of the expres¬ 
sion X + 9 and 101 is the value of the expression 
A - 1). 

LET U=A # B, V=(A > B) * X + (A < B) * Y 

will set the variable U to either 1 or 0 depending 
on whether A is not equal to or is equal to B, re¬ 
spectively; and set the variable V to either X, Y or 
0 depending on whether A is greater than, less 
than, or equal to B, respectively. 

PRINT COMMAND 

PRINT A * 3 + 1, 'ABC"123', 

PRINT A * 3 + 1, 'ABC' ; 123', "#'!<§>%", 


The first command will print the value of the ex¬ 
pression A * 3 + 1 (e.g., 307), the string of charac¬ 
ters ABC"123, and the string #'!@%, and then 
start a new line. Note that either single or double 
quotes can be used to quote strings, but pairs must 
be matched. The second command will produce 
the same output as the first, except that it will not 
start a new line after the last item is printed. This 
enables the program to continue printing on the 
same line with another PRINT command. 

Numerical values are printed with leading blanks 
so that they take 8 spaces each. This field width 
can be changed by a # sign followed by a number 
indicating the new width. The new width will be 
effective until the end of this PRINT command 
unless changed again by # n. Note that no trailing 
space is printed. Extra spaces can be generated by 
repeated commas. 

PRINT A, #3, B,„ C + 1, 

This will print the value of A in 8 spaces, the value 
of B in 3 spaces (more if B > 999 or B < -99), two 
extra spaces, and the value of C + 1 in 3 spaces 
(more if C > 998 or C <-100). 

PRINT I L, I K, I I, 

This command will print the control characters FF 
(control L), VT (control K), and FIT (control I). 
Control characters can also appear inside quotes, 
but the method used here makes them visible in 
the program listing. 


INPUT COMMAND 

INPUT A, B 

When this command is executed, Tiny BASIC will 
print A, a space, and wait to read in an expression 
from the keyboard. The variable A will be set to 
the value of the input expression. Then B is print¬ 
ed with a space and variable B is set to the value of 
the next expression read from the keyboard. 

INPUT 'WHAT IS YOUR WEIGHT?'A, "YOUR 
HEIGHT?"B 
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This is the same as the command above, except the 
prompt: A is replaced by: WHAT IS YOUR 
WEIGHT?, and the prompt: B is replaced by: 
YOUR HEIGHT?. Again, both single and double 
quotes can be used as long as they are matched. 

In both of the above examples, if the input (at run 
time) from the keyboard is not a valid expression. 
Tiny BASIC will reprint the prompt and wait again 
until a valid expression is entered. One may also 
choose to reprint only part of the prompt, e.g.: 

INPUT "WHAT IS", "YOUR WEIGHT?"A, 
"YOUR HEIGHT?"B 

In this case, WHAT IS YOUR WEIGHT? will be 
asked the first time; while only the part of YOUR 
WEIGHT? will be repeated if an invalid input is 
given. 


IF COMMAND 

IF A < B LET X=3; PRINT THIS STRING' 

will test the value of the expression A < B. If it is 
not zero (i.e., if it is true), the commands in the 
rest of this statement will be executed. If the value 
of the expression is zero (i.e., if it is not true), the 
rest of this statement will be skipped and execu¬ 
tion continues at the next statement. Note that 
the word 'THEN' is not used. 


GOTO COMMAND 
GOTO 120 

will jump to statement 120 and proceed from that 
statement on. Note that GOTO command cannot 
be followed by a semi-colon and other commands. 
It must be ended with a CR. 

GOTO A * 10 + B 

will jump to a statement number as computed 
from the value of the expression and proceed from 
that point on. 


GOSUB AND RETURN COMMANDS 

GOSUB command is different from GOTO com¬ 
mand in that: a) the current statement number 
and position within the statement is remembered; 
and b) a semi-colon and other commands can fol¬ 
low GOSUB in the same statement. 

GOSUB 120 

will cause the execution to jump to statement 120. 
GOSUB A * 10 + B 

will cause the execution to jump to the statement 
as computed from the given expression A * 10 + B. 

RETURN 

A RETURN command must be the last command 
in a statement followed by a CR. When a 
RETURN command is encountered, execution will 
jump back to the command following the most 
recent GOSUB command. 

GOSUB can be nested. The depth of the nest is 
limited only by the stack space. 

FOR AND NEXT COMMANDS 

FOR X=A + 1 TO 3*B STEP C-1 

The variable X is set to the value of the expression 
A + 1. The values of the expressions (not the ex¬ 
pressions themselves) 3 * B and C - 1 are remem¬ 
bered. The name of the variable X, the statement 
number and the position of this command within 
the statement are also remembered. Execution 
then continues the normal sequence until a NEXT 
command is encountered. 

The STEP can be positive, negative or even zero. 
The word STEP and the expression following it 
can be omitted if the desired STEP is +1. 

NEXT X 

The name of the variable (X) is checked with that 
of the most recent FOR command. If they do not 
agree, that FOR is terminated and the next recent 
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FOR is checked, etc. When a match is found, this 
variable will be set to its current value plus the 
value of the STEP expression saved by the FOR 
command. The updated value is then compared 
with the value of the TO expression also saved by 
the FOR command. If this is within the limit, exe¬ 
cution will jump back to the command following 
the FOR command. If this is outside the limit, 
execution continues following the NEXT com¬ 
mand itself. 

FOR can be nested. The depth of the nest in limit¬ 
ed only by the stack space. If a new FOR com¬ 
mand with the same control variable as that of an 
old FOR command is encountered, the old FOR 
will be terminated automatically. 

STOP COMMAND 

STOP 

This command stops the execution of the program 
and returns control to direct commands from the 
input device. It can appear many times in a pro¬ 
gram but must be the last command in any given 
statement; i.e., it cannot be followed by semi¬ 
colon and other commands. 

DIRECT COMMANDS 

As defined earlier, a statement consists of a state¬ 
ment number followed by commands. If the state¬ 
ment number is missing, or if it is 0, the com¬ 
mands will be executed (instead of saved) after 
you have typed the CR. All commands described 
above can be used as direct commands. There are 
three more commands that can be used as direct 
commands but not as part of a statement: 

RUN 

will start execution of the program starting at the 
lowest statement number. 

LIST 

will print out all statements in ascending numerical 
order. 


LIST 120 

will print out all the statements starting at state¬ 
ment 120. 

LIST 120,5 

will print out 5 lines starting at statement 120. 
NEW 

will delete all statements. 

STOPPING THE EXECUTION 

The execution of program or listing of program 
can be stopped by typing Control-C. 

ABBREVIATION AND BLANKS 

You may use blanks freely, except that numbers, 
command key words, and function names can not 
have embedded blanks. 

You can truncate all command key words and 
function names with a period. 'P.', 'PR.', 'PRI.', 
and 'PRIN.' all stand for 'PRINT', Also the word 
LET in LET command can be omitted. The 
'shortest' abbreviation for all key words are as 
follows: 

A.=ABS 
GOS.=GOSUB 
IF=IF 
.=LIST 
=NEXT 

REM=REMARK 

R. =RND 

S. =SIZE 
S.=STOP 
Implied = LET 

ERROR REPORT 

There are only three error conditions in Tiny 
BASIC. The statement that contains an error is 
printed out with a question mark inserted at the 
point where the error is detected. 


F. =FOR 

G. =GOTO 
IN.=INPUT 
N.=NEW 
P.=PRINT 
R.=RETURN 

R. =RUN 

S. =STEP 
TO=TO 
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(1) WHAT? means it does not understand you. 
Example: 


WHAT? 

210 P?TINT "THIS" 
where PRINT is mistyped 

WHAT? 

260 LET A=(B + 3?, C=3 + 4 
where a close parenthesis is missing 

(2) HOW? means it understands you but does 
not know how to do it. 


HOW? 

310 LET A=B * C? + 2 
where B * C is larger than 32767 


HOW? 

380 GOTO 412? 

where statement 412 does not exist 

(3) SORRY means it understands you and 
knows how to do it but there is not enough 
memory to do it. 

ERROR CORRECTIONS 

If you notice an error in typing before you hit the 
CR, you can delete the last character by the BS 
(Control H) key. 

To correct a statement, you can retype the state¬ 
ment number with the correct commands. Tiny 
BASIC will replace the old statement with the new 
one. 

To delete a statement, type the statement number 
followed immediately by a CR. ■ 


) 
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********************************************************************** 

4A 

* 



TBI 




* 

TINY 

aASIC INTERPRETER 


♦ 


VERSION 3.0 




* 

FOR aoeo SYSTEM 



* 


LI—CHEN WANG 



♦ 


26 APRIL. 1977 



********************************** ************************************ 

* 

* *** MEMORY 

USAGE *** 




* 0080-01FF 

ARE 

FOR VARIABLES. INPUT LINE. AND 

STACK 

* 2000 - 3FFF 

ARE 

FOR TINY BASIC TEXT & ARRAY 


* F000-F7FF 

ARE 

FOR TBI CODE 




♦ 


1438 

BQTSCR 

EQU 

C0080H 




1440 

T0P5CH 

EQU 

00200H 




1442 

60TRAM 

EQU 

02000H 




1444 

DFTLMT 

EQU 

04000H 




1446 

BOTROM 

EQU 

CFOOOH 


* DEFINE VARIABLES. BUFFER. 

AND 

STACK IN RAM 




1451 


□ RG 

eCTSCR 


C OoO 


1453 

KEYWRD 

OS 

1 

HAS IMT DONE? 

ccei 


1455 

TXTLMT 

OS 

2 

->LIMIT CF TEXT AREA 

0083 


1457 

VARBGN 

OS 

2*26 

TB VARIABLES A-Z 

C 087 


1459 

CURRNT 

OS 

2 

POINTS TC CURRENT LINE 

0069 


1461 

STKGOS 

OS 

2 

SAVES SP IN 'GCISUB' 



1463 

VARNXT 

OS 

0 

TEMP STORAGE 

COBB 


1465 

STKl NP 

OS 

2 

SAVES SP IN 'INPUT* 

0060 


1467 

LOPVAR 

OS 

2 

•FOR* LOOP SAVE AREA 

0 OBF 


1469 

LOPINC 

OS 

2 

INCREMENT 

OOCI 


1471 

LJPLMT 

OS 

2 

LIM1 T 

0 0C3 


1473 

LOPLN 

OS 

2 

LINE NUMBER 

G0C5 


1475 

LQPPT 

OS 

2 

TEXT POINTER 

00C7 


1477 

PANPNT 

DS 

2 

RANDOM NUMBER POINTER 

C 3C9 


1479 


06 

1 

EXTRA BYTE FOR BUFFER 

OOCA 


1481 

BUFFER 

DS 

132 

INPUT BUFFER 



1483 

BUFEND 

DS 

C 

BUFFER ENDS 

014E 


1485 


OS 

4 

EXTRA BYTES FOR STACK 



1487 

STKLMT 

DS 

0 

SOFT LIMIT FOR STACK 



1469 


ORG 

TOP SCR 




1491 

STACK 

DS 

0 

STACK STARTS HERE 



1493 


ORG 

BCTRAM 


2000 


1495 

TXTUNF 

OS 

2 


2002 

* 


1497 

TEXT 

DS 

2 



* 


4 ********************************************************************* 

* 


* *** INITIALIZE *** 

♦ 




1504 


GRG 

BGTRDM 


F 000 

31C002 

1506 

INIT 

L X I 

SP.STACK 


F 003 

C093F7 

1508 


CALL 

CRLF 


F 006 

218000 

1510 


LX 1 

H.KEYHRD 

AT PQHER GN KEYHRD IS 

F 009 

3EC3 

1512 


M V I 

A.0C3H 

PROBABLY NOT C3 

F COB 

BE 

1514 


CMP 

M 


FCCC 

CA26F0 

1516 


JZ 

TELL 

IT IS C 3. CONTINUE 

FOOF 

77 

1518 


MOV 

M.A 

NO. SET IT TO C3 

F010 

210040 

1520 


LX 1 

H.DFTLMT 

AND SET CEFAULT VALUE 

F013 

228100 

1522 


SHLD 

TXTLMT 

IN 'TXTLMT* 

F 01 fc 

3EF0 

1524 


MV I 

A. BOTROM,< 

INITIALIZE RANPNT 

FC1B 

32C80C 

1526 


STA 

RANPNTF1 


F01B 

210620 

1528 

PURGE 

L X I 

F.TEXT+4 

PURGE TEXT AREA 

FOIE 

220020 

1 5 3 C 


SHLD 

TXTUNF 


F 021 

26 FF 

1532 


M V I 

H.OFFH 


F 023 

220220 

1534 


SHLD 

TEXT 


F 026 

112FF0 

1536 

TELL 

LXI 

C ,MSG 

TELL USER 

F 029 

CD65F6 

1 53 8 


CALL 

PRTSTG 

*********************** 

F02C 

C353F0 

1540 


JMP 

RSTART 

***** JMP USER-INIT ***** 

F02F 

54494E5920 

1542 

MSG 

DB • 

T INY • 

*********************** 

F034 

4241534943 

1543 


DB • 

BASIC* 


64 

PCC's REFERENCE 

BOOK 






F 039 

20 56332E 30 

1544 


DB 

• v3.o*.acR 

F03E 

00 

1545 



F03F 

4F4B 

1546 

OK 

DB 

•OK*.aCR 

FC4I 

OD 

1548 



F 042 

574B41543F 

1549 

WHAT 

DB 

• WHAT 7•.SCR 

F 047 

OD 

1551 



F04B 

484F573F 

1552 

HOW 

DB 

•HCW?•,8CR 

F04C 

OD 

1554 



F04D 

S34F525239 

1555 

SORRY 

DB 

•SORRY*,aCR 

F 052 

OD 

1557 




* 


* *** DIRECT COMMAND / TEXT COLLECTER *** 


* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 


TBI PRINTS OUT "OK(CR)"# AND THEN IT PROMPTS ">" AND READS A LINE# 
If THE LINE STARTS WITH A NON—ZERO NUMBER. THIS NUMBER IS THE LINE 
THE *-I NE NUMBER CIN 16 BIT BINARY) ANO THE REST OF THE LINE 
(INCLUDING CRI IS STORED IN THE MEMORY# IF A LINE WITH THE SAME 
LINE NUMBER IS ALREDY THERE. IT IS REPLACED BY THE NEW ONE. IF THE 
REST OF THE LINE CONSISTS OF A CR ONLY. IT IS NOT STORED AND ANY 

EXISTING LINE WITH THE SAKE LINE NUMBER IS DELETED. ST ° RE ° AN ° ANY 

S'!J5 R A * L J* E IS INSERTED. replaced, or deleted, the program loops 
BACK AND ASK FOR ANOTHER LINE. THIS LOOP WILL BE TERMINATED WHEN IT 

TO A ”DIRECT"? E " ITH ZERQ ° R N ° L1NE NUMBER; AN0 CONTROL * IS*TRANSFERED 

lTFlTM AS1C TSc 0G cSn S £c E i? E J STARTS AT THE MEMORY LOCATION LABELED 

TEXT". THE END OF TEXT IS MARKED BY 2 BYTES XX FF. FOLLOWING 

2 BVT I S RESERVED FOR THE ARRAY ELEMENT 8(0). THE CONTENT 
OF LOCATION LABELED "TXTUNF" POINTS TO ONE AFTER afO). 


* THE MEMORY LOCATION "CURRNT" POINTS TO THE LINE NUMBER THAT IS 
J ARE R fN?ERPRif!NG ^5? —I 60 ~..S«*: E *?-^ E I N - THIS LOOP OR IhJZe if 

* SHOULD POINT TO A 0, 

* 


DIRECT COMMAND (SEE NEXT SECTION). "CURRNT" 


F 053 

310002 

F 056 

215DF0 

F 059 

228700 

F05C 

210000 

F05F 

22BDOO 

F 062 

228900 

F 065 

113FF0 

F 068 

CD65F6 

F06B 

3E3E 

F 060 

CD9BF7 

F 070 

05 

F 071 

11CA00 

F 0 74 

CDCFF5 

F077 

C022F5 

F07A 

7C 

F 076 

B5 

F07C 

Cl 

F 0 70 

CACCFO 

F 080 

IB 

F 081 

7C 

F082 

12 

F0B3 

la 

F084 

7D 

F 085 

12 

FC86 

C5 

F087 

05 

FC66 

79 

F 089 

93 

F08A 

F5 

F08B 

CD64F5 

F08E 

D5 

F08F 

C2A2F0 

F 092 

05 

F 093 

CD7DF5 

F096 

Cl 

F 09 7 

2A0020 


1593 R S TAR T 

1595 

1597 

1599 ST1 
1601 
1603 
1605 
1607 

1609 ST2 

1611 
1613 
1615 
1617 
1619 
1621 
16 23 
1625 
1627 
1629 
1631 
1633 
1635 
1637 
1639 
1641 
1643 
1645 
1647 
1649 
1651 
1653 
1655 
1657 
1659 
1661 
1663 


LX I 

SP .STACK 

LX I 

H.ST1+1 

SHLD 

CURRNT 

L X I 

H.O 

SHLD 

LOPVAR 

SHLD 

STKGOS 

L XI 

D .OK 

CALL 

PRTSTG 

MV I 

A. •>• 

CALL 

GETLN 

PUSH 

0 

LX I 

0.BUFFER 

CALL 

TSTNUM 

CALL 

IGNBLK 

MOV 

A . H 

ORA 

L 

POP 

B 

JZ 

DIRECT 

OCX 

D 

MOV 

A , H 

STAX 

0 

OCX 

C 

MOV 

A.L 

STAX 

D 

PUSH 

e 

PUSH 

D 

MOV 

A.C 

SUB 

E 

PUSH 

PSW 

CALL 

FNDLN 

PUSH 

D 

JNZ 

ST 3 

PUSH 

0 

CALL 

FNDNXT 

POP 

B 

LHLO 

TXTUNF 


RE-IN1TIALIZE STACK 
LITERAL 0 

CURRNT—>LINE * = 0 


DE->STRING 

PRINT STRING UNTIL CR 

PROMPT ANO 

READ A LINE 

DE—>END OF LINE 

DE—>BBGINN ING OF LINE 

TEST IF IT IS A NUMBER 

HL=VALUE OF THE • OR 
0 IF NO • WAS FOUND 
BC—>END OF LINE 

BACKUP DE AND SAVE 
VALUE OF LINE * THERE 


BC.DE—>B6GIN» END 


A=K OF BYTES IN LINE 
FIND THIS LINE IN SAVE 
AREA. DE— >SAVE AREA 
NZJNOT FOUND, INSERT 
Z IFQUNO. DELETE IT 
SET DE—>NEXT LINE 
BC->LINE TO BE DELETED 
HL—>UNFILLED SAVE AREA 
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F 09A 

CD00F6 

166 5 

CALL 

M V UP 

MOVE UP TO DELETE 

F09D 

60 

1667 

MOV 

H. B 

TXTUNF—>LNF1LLED AREA 

FOSE 

69 

1669 

MOV 

L.C 


F09F 

220020 

1671 

SHLD 

TXTUNF 

UPDATE 

F 3A* 

Cl 

1573 S T 3 

POP 

B 

GET READY TO INSERT 

F0A3 

2A0020 

1675 

LHLD 

TXTUNF 

BUT FIRST CHECK IF 

F GA6 

FI 

1677 

POP 

PSW 

THE LENGTH OF NEW LINE 

F0A7 

E5 

16 7 9 

PUSH 

H 

IS 3 (LINE * AND CR) 

F0A& 

FE 03 

1681 

CPI 

3 

THEN DO NOT INSERT 

FOAA 

CA53F0 

1633 

JZ 

RSTART 

MUST CLEAR THE STACK 

FOAD 

85 

1635 

ADD 

L 

COMPUTE NEW TXTUNF 

FOAE 

5F 

1687 

MOV 

E . A 


FOAF 

3E0 0 

1689 

MV I 

A .0 


F OB I 

8C 

1691 

ADC 

H 


F0B2 

57 

1693 

MOV 

D.A 

DE—> NEW UNFILLED AREA 

FOBS 

2A8100 

1695 

LHLD 

TXTLMT 

CHECK TO SEE IF THERE 

F0B6 

EB 

1697 

XCHG 

. 


F0B7 

CDE0F4 

1699 

CALL 

COMP 

IS ENOUGH SPACE 

FO&A 

02 5DF5 

1701 

JNC 

CSORRY 

SORRY. NC ROOM FOR IT 

FOBD 

220020 

1703 

SHLD 

TXTUNF 

OK. UPDATE TXTUNF 

FOCC 

D1 

1705 

POP 

D 

DE—> OLD UNFILLED AREA 

FOCI 

C0GBF6 

1707 

CALL 

MVDOWN 


F0C4 

D1 

1709 

POP 

D 

DE— >BEG IN . HL—>END 

F0C5 

El 

1711 

POP 

H 


F0C6 

CD00F6 

1713 

CALL 

MVUP 

MOVE NEW LINE TO SAVE 

F0C9 

C36BF0 

1715 

JMP 

ST2 

AREA 


* 

*******+ *** * * ********* ******** *************************** ********* 


* 

* *** DIRECT *** & EXEC *** 

4 

* THIS SECTION OF THE CODE TESTS A STRING AGAINST A TABLE. WHEN A 

* MATCH IS FOUND, CONTROL IS TRANSFERED TO THE SECTION OF CODE 

* ACCORDING TO THE TAELE. 

* 

* AT 'EXEC*. DE SHOULD POINT TO THE STRING AND HL SHOULD POINT TO THE 

* TABLE—I. AT 'DIRECT*. OE SHOULD POINT TO THE STRING. HL WILL BE SET 

* UP TO POINT TO TAB1-1. WHICH IS THE TABLE OF ALL DIRECT AND 
A STATEMENT COMMANDS. 

A 

A A •.* IN THE STRING WILL TERMINATE THE TEST AND THE PARTIAL MATCH 
A WILL BE CONSIDERED AS A MATCH. E.G.. 'P.'. 'PR.'. •PR I .• • # PRIN. # . 
A OR 'PRINT* WILL ALL MATCH 'PRINT'. 

A 

A THE TABLE CONSISTS OF ANY NUMBER OF ITEMS. EACH ITEM IS A STRING OF 
A CHARACTERS WITH dIT 7 SET TO & AND A JUMP ADDRESS STORED HI-LOW WITH 


* BIT 

7 OF THE 

HIGH BYTE SET 

TO 1 . 



* 

* END 

OF TABLE 

IS AN : 

(TEM WITH A JUMP ADDRESS 

ONLY. IF THE STRING 

* DOES NOT MATCH ANY 

OF THE 

OTHER 

ITEMS. IT 

WILL MATCH THIS NULL ITEM 

* AS 

DEFAULT . 






♦ 

FCCC 

21C2F7 

1747 

DIRECT 

L X I 

H . TAdl-1 

*** DIRECT +** 

* 

FOCF 

CD22F5 

1750 

EXfcC 

CALL 

IGNBLK 

*** EXEC 

F0D2 

05 

1752 


PUSH 

0 

SAVE POINTER 

F 003 

1A 

1754 

EX1 

LDA X 

D 

IF FOUND ••• IN STRING 

F 0D4 

1 3 

1756 


I NX 

D 

BEFORE ANY MISMATCH 

F0D5 

FE2E 

1758 


CPI 

• . • 

WE DECLARE A MATCH 

F0D7 

CAFOFO 

1760 


JZ 

EX3 


FODA 

23 

1762 


I NX 

F 

HL— > T A8L E 

FOOt, 

BE 

1764 


CMP 

M 

IF MATCH. TEST NEXT 

FODC 

CAD3F0 

1766 


JZ 

EX 1 


FODH 

3E 7F 

1768 


M V I 

A . 0 7FH 

ELSE. SEE IF BIT 7 

F OE 1 

IB 

1770 


OCX 

D 

OF TABLE IS SET, WHICH 

F 0 E2 

BE 

1772 


CMP 

M 

is the jump addr. (hi> 

F Gt3 

DAF7F0 

1774 


JC 

EX5 

c:yes. matched 

FOEo 

23 

1776 

EX2 

I N X 

H 

NC:NO. FIND JUMP ADDR. 

F0E7 

BE 

17 73 


CMP 

M 


F Oc.8 

D2LoF 0 

17 80 


JNC 

EX2 


F0E6 

23 

Ha* 


I N X 

H 

BUMP TO NEXT TAB. ITEM 

FOEC 

D1 

1764 


POP 

D 

RESTORE STRING POINTER 

FOED 

C3CFF0 

1736 


JMP 

EXEC 

TEST AGAINST NEXT ITEM 

FOFO 

3E7F 

1768 

fc X3 

MVI 

A.07FH 

PARTIAL MATCH, FIND 

F OF 2 

23 

179C 

EX4 

I N X 

H 

JUMP ADDR.. WHICH IS 
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F OF 3 

BE 

1792 

CMP 

M 

FLAGGED BY BIT 7 

F 0F4 

D2F2F0 

1794 

JNC 

EX4 


F OF 7 

7E 

179o EX5 

MOV 

A.M 

LOAD HL WITH THE JUMP 

F0F8 

23 

1798 

INX 

H 

ADDRESS FROM THE TABLE 

F OF 9 

6E 

18 CO 

MOV 

L.M 

444444444444444*44 

FOFA 

E6FF 

1802 

ANI 

OFFH 

44444 ANI 07FH 44444 

FOFC 

67 

1804 

MOV 

H , A 

4444444444444*444* 

FOFD 

FI 

1806 

POP 

PSW 

CLEAN UP THE GARBAGE 

FOFE 

* 

E9 

1808 

PCHL 

« 

AND WE GC DO IT 


STATEMENT COMMANDS. 


MHAT FOLLOWS IS THE CODE TO EXECUTE DIRECT AND __ _ 

CONTROL IS TRANSFERED TC THESE POINTS VIA THE COMMANO TABLE LOOKUP 
CCDE ° F ‘DIRECT* ANC *EXEC* IN LAST SECTION. AFTER THE COMMAND IS 


* 

* 

♦ 

* EXECUTED. CONTROL IS TRANSFERED TO OTHER SECTIONS*AS FOLLOWS? 

* FOR ‘LIST*. ’NEW*. AND ‘STOP*: GO BACK TO 1 RSTART * 

* FCR 'RSTART* GC3 EXECUTE THE FIRST STORED LINE IF ANY} ELSE GO BACK TO 

* FOR 'GOTO* AND *GOSUE*: GO EXECUTE THE TARGET LINE. 

* FOR 'RETURN* AND "NEXT*: GO BACK TO SAVED RETURN LINE. 

* FOR ALL OTHERS: IF •CURRNT• -> 0. GO TO 'RSTART*. ELSE GO EXECUTE 

* NEXT COMMAND. (THIS IS DONE IN 'FINISH*.) 

* 

********************************************************************** 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

A 

FOFF CD2AF5 
F102 C31BF0 

* 

F10 5 CD2AF5 
F106 C3S3F0 

* 

F10B CD2AF5 
F10E 110220 
* 

Fill 210000 

F 11A CD6CF5 
F117 DA53F0 
* 

F11A EB 

F11B 22B700 
F1IE EB 
F11F 13 
F120 13 
* 

CD98F7 
2112F7 
C3CFF0 


*44 NEW 444 STOP 444 RUN (& FRIENDS) 444 t GOTO 444 
•NEW(CR)* RESETS •T XTUNF• 

•STOP(CR)' GOES BACK TO 'RSTART* 

•RUN(CR)* FINOS THE FIRST STORED LINE. STORE ITS ADDRESS (IN 
•CURRNT*), AND START EXECUTE IT. NOTE THAT ONLY THOSE 
COMMANDS IN TAB2 ARE LEGAL FOR STORED PROGRAM. 

THERE ARE 3 MORE ENTRIES IN *RUN*: 

•RUNNXL* FINOS NEXT LINE. STORES ITS ADDR. AND EXECUTES IT. 
•RUNTSL' STORES THE ADDRESS OF THIS LINE AND EXECUTES IT. 
•RUNSML* CONTINUES THE EXECUTION ON SAME LINE. 

•GOTO EXPR(CR)* EVALUATES THE EXPRESSION. FIND THE TARGET 
LINE, AND JUMP TO ‘RUNTSL* TO DO IT. 


1847 NEW 
1849 

1852 STOP 
1854 

1857 RUN 
1859 


CALL ENDCHK 
JMP PURGE 

CALL ENDCHK 
JMP RSTART 

CALL ENDCHK 
LX I D.TEXT 


1862 RUNNXL LXI 

1864 
1866 


H. 0 
CALL FNDLP 
JC RSTART 


1669 RUNTSL XCHG 
1871 
1873 
1675 
1877 


SHLD CURRNT 
XCHG . 

D 
0 


I NX 
I NX 


444 NEW(CR) 444 

444 STOP(CR) 444 

**4 RUN (CR) 444 
FIRST SAVEC LINE 

*** RUNNXL 444 
FIND WHATEVER LINE » 

c:passed txtunf, quit 

444 RUNTSL *4* 

SET •CURRNT'->LINE » 

BUMP PASS LINE * 


F121 
F 124 
F 127 
4 

F12A 
F 1 2D 
F 12E 

F 131 
FI 34 
F137 
FI 3b 


1880 RUNSML CALL CHKIO 
1882 LXI H.TAB2-1 

1864 JMP EXEC 


CD5BF3 

05 

CD2AF8 

CD64F5 

C2FAF5 

FI 

C31AF1 


1887 GOTO 

1889 

1891 

1893 

1695 

1897 

1899 


CALL EXPR 
PUSH D 
CALL ENDCHK 
CALL FNDLN 

AHOW 

PSW 

RUNTSL 


JNZ 

POP 

JMP 


444 RUNSML 444 
FIND COMMAND IN TAB2 
ANC EXECUTE IT 

444 GOTO EXPR 444 
SAVE FOR ERROR ROUTINE 
MUST FIND A CR 
FIND THE TARGET LINE 
NO SUCH LINE * 

CLEAR THE "PUSH OE** 

GO DO IT 
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* 

********************************************************************** 
* 

* *** LIST *** fc PRINT *** 

* 

* LIST HAS THREE FORMS: 

* ‘LIST(CR)• LISTS ALL SAVED LINES 

* 'LIST N(CR>‘ START LIST AT LINE N 

* ‘LIST Nl. N2(CR)' START LIST AT LINE N1 FOR Ni LINES YOU CAN STOP 

* THE LISTING BY CONTROL C KEY 

* 

* PRINT COMMAND IS ‘PRINT OR ‘PRINT ....(CR>* 

* WHERE IS A LIST OF EXPRESIONS. FORMATS. AND/OR STRINGS. 

* THESE ITEMS ARE SEPERATED BY COMMAS. 

* 

* A FORMAT IS A POUND SIGN FOLLOWED BY A NUMBER. IT CONTROLS THE 

* NUMBER OF SPACES THE VALUE OF A EXPRESION IS GOING TO BE PRINTED. 

* IT STAYS EFFECTIVE FOR THE REST OF THE PRINT COMMAND UNLESS CHANGED 

* BY ANOTHER FORMAT. IF NO FORMAT IS SPECIFIED. 8 POSITIONS WILL BE 

* USEO* 

* 

* A STRING IS QUOTED IN A PAIR OF SINGLE QUOTES OR A PAIR OF DOUBLE 

* QUOTES. 

* 

* CONTROL CHARACTERS AND LOWER CASE LETTERS CAN BE INCLUDED INSIDE THE 

* QUOTES. ANOTHER (BETTER* WAY OF GENERATING CONTROL CHARACTERS ON 

* THE OUTPUT IS USE THE UP-ARROW CHARACTER FOLLOWEC BY A LETTER. |L 

* MEANS FF, |I MEANS HT, |G MEANS BELL ETC. 

* 

* A (CRLF) IS GENERATED AFTER THE ENTIRE LIST HAS BEEN PRINTED OR IF 

* THE LIST IS A NULL LIST. HOWEVER IF THE LIST ENDED WITH A COMMA, NO 

* (CRLF) IS GENERATED. 

* 


F13B 

CDCFF5 

1935 LIST 

CALL 

TSTNUM 

TEST IF THERE IS A * 

FI3E 

E5 

1937 

PUSH 

H 


FI3F 

21FFFF 

1939 

L X I 

H.OFFFFH 


F142 

CDBBF5 

1941 

TSTC 

• . • .LSI 


F 145 

2C 

1943 




F 146 

03 

1944 




F147 

CDCFF5 

1945 

CALL 

TSTNUM 


F14A 

E3 

1947 LSI 

XTHL 



F14B 

CD2AF5 

1949 

CALL 

ENDCHK 

IF NC * WE GET A 0 

F14E 

C064F5 

1951 

CALL 

FNDLN 

FIND THIS OR NEXT LINE 

F1S1 

DA53F0 

1953 LS2 

JC 

RST ART 

c:passed txtunf 

F154 

E3 

1955 

XTHL 



F 155 

7C 

1957 

MOV 

A , H 


FI 56 

B5 

1959 

ORA 

L 


F157 

CA53F0 

1961 

JZ 

RST ART 


F15A 

2B 

1963 

DCX 

H 


F15B 

E3 

1965 

XTHL 



F15C 

CDF2F6 

1967 

CALL 

PRTLN 

PRINT THE LINE 

F15F 

CD65F6 

1969 

CALL 

PRTSTG 


FI 62 

CD9 8F7 

1971 

CALL 

chkio 


F 165 

CD6CF5 

1973 

CALL 

FNDLP 

FIND NEXT LINE 

F 166 

C351F1 

1975 

JMP 

LS2 

AND LCOP BACK 

♦ 

F16B 

OcOB 

1978 PRINT 

MV I 

C.8 

C= » CF SPACES 

F16D 

CDBBF5 

1980 

TSTC 

•; •.pri 

IF NULL LIST t " J •• 

F 1 70 

3B 

1982 




F 171 

06 

1983 




F172 

CD93F7 

1984 

CALL 

CRLF 

GIVE CR-LF AND 

F 175 

C321F1 

1986 

JMP 

RUNSML 

CONTINUE SAME LINE 

F 178 

CDBBF5 

1988 PR1 

TSTC 

SCR.PR6 

IF NULL LIST ( CR) 

F17B 

OD 

1990 




F17C 

24 

1991 




F17D 

CD93F7 

1992 

CALL 

CRLF 

ALSO GIVE CR-LF ANC 

F 180 

C311F1 

1994 

JMP 

RUNNXL 

GO TO NEXT LINE 

F 183 

CDBBF5 

1996 PR2 

TSTC 

•••.PR4 

ELSE IS IT FORMAT? 

F 186 

23 

1998 




F 187 

OE 

1999 




F 188 

CD5BF3 

2000 PR3 

CALL 

EXPR 

YES. EVALUATE EXPR. 

F18B 

3EC0 

2002 

MV I 

A.OCOH 


FI 80 

A5 

2004 

ANA 

L 


F18E 

B4 

2006 

ORA 

H 


F18F 

C2F9F5 

2008 

JNZ 

OHOW 
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F 192 

4D 

20 10 


MOV 

C,L 

F 193 

C39CFI 

2012 


JMP 

PR5 

F196 

CD74F6 

20 14 

PR 4 

CALL 

OTSTG 

F 199 

C3BAF1 

2016 


JMP 

PR9 

FI9C 

CDBBF5 

2018 

PR5 

TSTC 

* . * , PR8 

F19F 

2C 

2020 




F 1 AO 

13 

2021 




F1A1 

CDBBFS 

2022 

PR6 

TSTC 

*.*.PR7 

F1A4 

2C 

2024 




FIA5 

08 

2025 




F1A6 

3E20 

2026 


M V I 

A, • • 

F1A8 

CD95F7 

2028 


CALL 

DUTCH 

F1AB 

C3AIF1 

2030 


JMP 

PR6 

F1AE 

CD0FF5 

2032 

PR 7 

CALL 

FIN 

F1B1 

C383F1 

20 34 


JMP 

PR2 

FIB4 

CD93F7 

2036 

PR8 

CALL 

CRLF 

F1B7 

C309F5 

2038 


JMP 

FINISH 

F1BA 

CD5BF3 

2040 

PR9 

CALL 

EXPR 

FI BO 

C5 

2042 


PUSH 

a 

FI BE 

C0AEF6 

2044 


CALL 

PRTNUM 

F1 Cl 

Cl 

2046 


PUP 

B 

F1C2 

C39CF1 

2048 


JMP 

PR 5 


* 


AND SAVE IT IN C 
LOCK FOR MORE TO PRINT 
OR IS IT A STRING? 

IF NOT. MOST BE EXPR. 
IF GO FIND NEXT 


IN THE LIST. 

LIST CONTINUES 
LIST ENDS 

EVALUATE THE EXPR 

PRINT THE VALUE 

MORE TO FRINT? 


******************* 4 ******************************:(,***** ************** 
+** GOSUB *** & RETURN *** 

•GOSUB EXPR;* OR *G0SUB EXPR ICR)* IS LIKE THE 'GOTO* COMMAND. 
EXCEPT THAT THE CURRENT TEXT POINTER, STACK POINTER ETC. ARE SAVE SO 
THAT EXECUTION CAN BE CCNTINUEO AFTER THE SUBROUTINE * RETURN * • IN 
ORDER THAT ’GOSUB* CAN BE NESTED (AND EVEN RECURSIVE). THE SAVE AREA 
MUST BE STACKED. THE STACK POINTER IS SAVED IN ’STKGOS*. THE OLD 
•STKGOS* IS SAVED IN THE STACK. IF ME ARE IN THE MAIN ROUTINE. 
•STKGOS* IS ZERO (THIS WAS DONE BY THt "MAIN" SECTION OF THE CODE). 
BUT WE STILL SAVE IT AS A FLAG FCR NO FURTHER •RE TURN • S• 

•RETURN(CR)* UNOOS EVERYTHING THAT *GOSUB* DID. AND THUS RETURN THE 
EXCUT ION TO THE COMMAND AFTER THE MOST RECENT 'GOSUB*. IF *STKGOS* 


IS ZERO, IT INDICATES THAT Wh NEVER HAD 
ERROR. 


A ‘GOSUB* ANC IS THUS 


AN 


F1C5 

CD36F6 

2070 

GOSUB 

CALL 

PUSHA 

Fice 

CD5BF3 

2072 


CALL 

EXPR 

Fice 

05 

2074 


PUSH 

D 

F ICC 

CD64F5 

2076 


CALL 

fndln 

F1CF 

C2FAF5 

2078 


JNZ 

AHOW 

F 1D2 

2AB700 

2080 


LHLD 

CURRNT 

F IDS 

E5 

2082 


PUSH 

H 

F1D6 

2AB900 

20 84 


LHLD 

STKGOS 

F1D9 

E5 

2086 


PUSH 

H 

F IDA 

210000 

2088 


LXI 

H , 0 

FIDO 

22BD00 

2090 


SHLD 

LOPVAR 

F1E0 

39 

2092 


□ AD 

SP 

F1E1 

22B900 

2094 


SHLD 

STKGOS 

F1E4 

C31AF1 

2096 


JMP 

RUNT SL 

F1E7 

CD2AF5 

2098 

RETURN 

CALL 

ENDCHK 

F1EA 

2A 8900 

2100 


LHLD 

STKGOS 

F1ED 

7C 

21 02 


MOV 

A , H 

F1EE 

B5 

21 04 


ORA 

L 

FIEF 

CA30F5 

21 06 


JZ 

CWHAT 

F1F2 

F 9 

2106 


SPHL 

, 

F1F3 

El 

21 1 0 

RESTOR 

POP 

H 

F1F4 

22B900 

2112 


SHLD 

STKGOS 

F1F7 

El 

2114 


POP 

H 

F IF 8 

226700 

2116 


SHLD 

CURRNT 

FIFE 

D1 

2118 


POP 

D 

F1FC 

CD1AF6 

21 20 


CALL 

POPA 

F IFF 

C309F5 

2122 


JMP 

FINISH 


SAVE THE CURRENT "FOR" 
PARAMETERS 
AND TEXT POINTER 
FIND THE TARGET LINE 
NOT THERE. SAY "HOW?" 
SAVE CLO 

•CURRNT* OLD 'STKGCS* 


AND LOAD NEW ONES 


THEN RUN THAT LINE 
THERE MUST BE A CR 
OLD STACK POINTER 
0 MEANS NOT EXIST 

SO. WE SAY: "WHAT?" 
ELSE, RESTORE IT 

AND THE OLD *STKGOS* 

AND THE CLD * CURRN T * 

OLD TEXT POINTER 
OLD "FOR** PARAMETERS 

********************************************************************** 

* *+* FOR *** fc NEXT *** 

* 

* ‘FOR• HAS TWO FORMS: 'FOR VAR=EXP1 TO EXP2 STEP EXP3* AND 'FOR 

* VAR=EXP1 TO EXP2• THE SECOND FORM MEANS THE SAME THING AS THE FIRST 


PALO ALTO TINY BASIC 


69 



* FORM KITH 

EXP3 

= 1. <I.E . • 

WITH A 

STEP OF +1. 

) TBI WILL FIND THE 

* VARIABLE 

VAR. 

AND 

SET 

ITS VALUE TO THE CURRENT VALUE OF EXP1. IT 

* ALSO EVALUATES 

EXP2 

AND EXP3 ANO 

SAVE ALL THESE TOGETHER WITH THE 

* TEXT POINTER 

ETC. 

IN 

THE 'FOR* SAVE AREA. WHICH CONSISTS OF 

* 'LOPVAR'. 

•LOPINC • . 

•LOPLMT' . •LOPLN * . AND ' 

LOPPT'. IF THERE IS 

* ALREADY SOME- 

THING IN 

the 

SAVE AREA (THIS IS INDICATED BY A 

* NON 

-ZERO • 

LOPVAR* > . 

THEN 

THE OLD 

SAVE AREA IS 

SAVED IN THE STACK 

* BEFORE THE NEW ONE OVERWRITES 

IT. TBI WILL THEN DIG IN THE STACK 

♦ AND 

FIND OUT IF THIS 

SAME 

VARIABLE WAS USED 

IN ANOTHER CURRENTLY 

♦ ACTIVE ‘FOR* 

LOOP. 

IF THAT IS 

THE CASE. THEN THE OLD 'FOR* LOOP IS 

♦ DEACTIVATED. 

* 

(PURGED FROM THE STACK..) 


♦ 'NEXT VAR* 

SERVES AS 

THE 

LOGICAL 

(NOT NECESSARILLY PHYSICAL) END OF 

♦ THE 

•FOR • 

LOOP • 

THE 

CONTROL 

VARIABLE VAR. IS CHECKED WITH THE 

♦ 'LOPVAR*. 

IF 

THEY ARE NOT THE SAME. TBI DIGS 

IN THE STACK TO FIND 

♦ THE 

RIGHT 

ONE 

AND PURGES 

ALL THOSE THAT OID 

NOT MATCH. EITHER WAY, 

♦ TbI 

THEN ADDS 

THE 'STEP* 

TO THAT 

VARIABLE AND 

CHECK THE RESULT WITH 

♦ THE 

LI MI T 

• 

IF IT 

IS 

WITHIN 

THE LIMIT. CONTROL LOOPS BACK TO THE 

♦ COMMAND FOLLOWING THE 'FOR*. IF 

OUTSIDE THE 

LIMIT. THE SAVE ARER IS 

♦ PURGED AND 

* 

EXECUTION 

CONTINUES. 



F 20 2 

CD36F6 


21 56 

FOR 

CALL 

PUSHA 

SAVE THE OLD SAVE AREA 

F205 

CDF3F4 


21 58 


CALL 

SETVAL 

SET THE CONTROL VAR. 

F 208 

2B 


21 60 


OCX 

H 

HL IS ITS ADDRESS 

F 209 

22BD00 


2162 


SHLD 

LOPVAR 

SAVE THAT 

F20C 

216EF7 


2164 


LXI 

H.TAB4-1 

USE 'EXEC* TO LOOK 

F2 OF 

C3CFF0 


21 66 


JMP 

EXEC 

FOR THE WORD 'TO* 

F 212 

CD5BF3 


21 66 

FR1 

CALL 

EXPR 

EVALUATE THE LIMIT 

F 215 

22C100 


2170 


SHLD 

LOPLMT 

SAVE THAT 

F218 

2174F7 


21 72 


LXI 

H,TAB 5—1 

USE 'EXEC* TO LOOK 

F 21 B 

C3CFF0 


21 74 


JMP 

EXEC 

FOR THE WORD 'STEP' 

F21E 

CD5BF3 


2176 

FR2 

CALL 

EXPR 

FOUND IT. GET STEP 

F 221 

C327F2 


21 78 


JMP 

FR4 


F224 

210100 


2180 

FR3 

LXI 

H. 1 

NOT FOUNC. SET TO 1 

F 227 

22BF00 


2182 

FR4 

SHLD 

LOPINC 

SAVE THAT TOO 

F22A 

2AB700 


21 84 


LHLD 

CURRNT 

SAVE CURRENT LINE • 

F 220 

22C300 


2186 


SHLD 

LOPLN 


F 230 

EB 


21 88 


XCHG 

. 

AND TEXT POINTER 

F 231 

22C500 


21 90 


SHLD 

LOPPT 


F234 

010A00 


2192 


LXI 

B.10 

DIG INTO STACK TO 

F 237 

2ABOOO 


21 94 


LHLD 

LOPVAR 

FIND 'LOPVAR' 

F23A 

EB 


2196 


XCHG 

. 


F23B 

60 


2198 


MOV 

H . B 


F 23C 

68 


2200 


MOV 

L.B 

HL=0 NOW 

F23D 

39 


2202 


DAD 

SP 

HERE IS THE STACK 

F23E 

C342F2 


2204 


JMP 

FR6 


F 241 

09 


2206 

FR 5 

DAD 

B 

EACH LEVEL IS 10 DEEP 

F242 

7E 


2208 

FR6 

MOV 

A.M 

GET THAT OLD 'LOPVAR' 

F 243 

23 


2210 


I NX 

H 


F244 

86 


2212 


ORA 

M 


F245 

CA62F2 


2214 


JZ 

FR7 

0 SAYS NC MORE IN IT 

F 248 

7E 


2216 


MOV 

A.M 


F 249 

28 


2218 


OCX 

H 


F24A 

BA 


2220 


CMP 

D 

SAME AS THIS ONE? 

F 24 8 

C241F2 


2222 


JNZ 

FR5 


F24E 

7E 


2224 


MOV 

A.M 

THE OTHER HALF? 

F24F 

BB 


2226 


CMP 

E 


F250 

C24IF2 


2228 


JNZ 

FR5 


F 253 

EB 


2230 


XCHG 

. 

YES. FOUNC ONE 

F 254 

210000 


2232 


LXI 

H, 0 


F 257 

39 


2234 


DAO 

SP 

TRY TC MCVE SP 

F 258 

44 


2236 


MOV 

8 . H 


F 2 59 

4D 


2238 


MOV 

C .L 


F25A 

210A00 


2240 


LXI 

H.10 


F25D 

19 


2242 


DAD 

0 


F25E 

CD0BF6 


2244 


CALL 

MVDOWN 

AND PURGE 10 WORDS 

F 261 

F9 


2246 


SPHL 

. 

IN THE STACK 

F 262 

2AC500 


2248 

FR7 

LHLD 

LOPPT 

JOB DONE. RESTORE DE 

F265 

EB 


2250 


XCHG 

. 


F 26b 

£ 

C309F5 


2252 


JMP 

FINISH 

ANO CONTINUE 

F 269 

CD89F5 


2255 

NEXT 

CALC 

TST V 

GET ADDRESS OF VAR. 

F26C 

OA30F5 


2257 


JC 

QWHAT 

NO VARIAELE. "WHAT?" 

F26F 

22BB00 


2259 


SHLD 

VARNXT 

YES. SAVE IT 

F272 

D5 


2261 

N X 1 

PUSH 

D 

SAVE TEXT POINTER 
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F 273 

EB 

2263 

XCHG 

. 


F 2 74 

2ABDOO 

2265 

LHLD 

LOPVAR 

GET VAR. IN 'FOR' 

F277 

7C 

2267 

MOV 

A.H 


F 278 

B5 

2269 

ORA 

L 

0 SAYS NEVER HAD ONE 

F 27 V 

CA31FS 

£271 

JZ 

AWHAT 

SO WE ask: "WHAT?" 

F27C 

COEDF4 

£273 

call 

COMP 

ELSE WE CHECK THEM 

F27F 

CA8CF2 

2275 

JZ 

NX2 

OK, THEY AGREE 

F 282 

D1 

2277 

POP 

0 

NO, LET'S SEE 

F283 

CD1AF6 

2279 

CALL 

POPA 

PURGE CURRENT LOOP 

F 286 

2ABB00 

2281 

LHLD 

VARNXT 

AND PCP CNE LEVEL 

F 269 

C372F2 

2283 

JMP 

NX 1 

GO CHECK AGAIN 

F28C 

5E 

2285 NX2 

MOV 

E . M 

COME HERE WHEN AGREED 

F28D 

23 

2287 

I NX 

H 


F26E 

56 

2289 

MOV 

D.M 

DE = V ALUE OF VAR. 

F28F 

2A3F00 

2291 

LHLD 

LOPINC 


F 292 

E5 

2293 

PUSH 

H 


F 293 

7C 

2295 

MOV 

A.H 


F 294 

AA 

2297 

XRA 

D 

S=SIGN DIFFER 

F 295 

7A 

2299 

MOV 

A . D 

A—S1GN OF DE 

F296 

19 

2301 

0 AD 

0 

ADD ONE STEP 

F297 

FA9EF2 

2303 

JM 

NX 3 

CANNOT OVERFLOW 

F29A 

AC 

2305 

XRA 

H 

MAY OVERFLOW 

F 29 B 

FAC2F2 

2307 

JM 

NX 5 

AND IT DID 

F29L 

EB 

2309 NX3 

XCHG 

. 


F29F 

2ABD00 

2311 

LHLD 

LOPVAR 

PUT IT BACK 

F2A2 

73 

2313 

MOV 

M.E 


F2A3 

23 

2315 

I NX 

H 


F2A4 

72 

2317 

MOV 

M . D 


F2A5 

2AC100 

2319 

LHLD 

LOPLMT 

HL=LIMIT 

F2A8 

FI 

2321 

POP 

PSW 

OLD HL 

F2A9 

B7 

2323 

ORA 

A 


F2AA 

F2AEF2 

2325 

JP 

NX4 

STEP > 0 

F2AD 

EB 

2327 

XCHG 

. 

STEP < 0 

F2AE 

CDE3F4 

2329 NX4 

CALL 

CKHLDE 

COMPARE WITH LIMIT 

F2B1 

D1 

2331 

POP 

0 

RESTORE TEXT POINTER 

F2B2 

0AC4F2 

2333 

JC 

NX6 

OUTSICE LIMIT 

F2B5 

2AC300 

2335 

LHLD 

LOPLN 

WITHIN LIMIT, GO 

F2B8 

22B700 

2337 

SHLD 

CURRNT 

BACK TO THE SAVED 

F 2dta 

2AC500 

2339 

LHLD 

LOPPT 

•CURRNT* AND TEXT 

F2BE 

EB 

2341 

XCHG 

. 

POINTER 

F2BF 

C309F5 

2343 

JMP 

FINISH 


F2C2 

El 

2345 NX5 

POP 

H 

OVERFLOW. PURGE 

F2C3 

D1 

2347 

POP 

D 

GARBAGE IN STACK 

F2C4 

CD1AF6 

2349 NXb 

CALL 

POPA 

PURGE THIS LOOP 

F2C7 

C309F5 

2351 

JMP 

FINISH 



* 


********************************************************4************* 
* 

* *** rem *** JF *** INPUT *** C LET (D DEFLT) *** 

* 

* •REM' CAN BE FOLLOWED BY ANYTHING AND IS IGNORED BY TBI. TBI TREATS 

* IT LIKE AN 'IF* WITH A FALSE CONDITION. 

* 

* 'IF* IS FOLLOWED BY AN EXPR. AS A CONDITION AND ONE OR WORE COMMANDS 

* (INCLUDING OUTHER 'IF'S> SEPERATED BY SEMI-COLONS. NOTE THAT THE 

* WORD ‘THEN* IS NOT USED. TBI EVALUATES THE EXPR. IF IT IS NON-ZERO. 

* EXECUTION CONTINUES. IF THE EXPR. IS ZERO. THE COMMANDS THAT 

* FOLLOWS ARE IGNORED AND EXECUTION CONTINUES AT THE NEXT LINE. 

* 

* 'INPUT 1 COMMAND IS LIKE THE 'PRINT* COMMAND. AND IS FOLLOWED BY A 

* LIST OF ITEMS. IF THE ITEM IS A STRING IN SINGLE OR DOUBLE QUOTES. 

* OR IS AN UP-ARROW. IT HAS THE SAME EFFECT AS IN 'PRINT*. IF AN ITEM 

* IS A VARIABLE. THIS VARIABLE NAME IS PRINTED OUT FOLLOWED BY A 

* COLON. THEN TBI WAITS FOR AN EXPR. TO BE TYPED IN. THE VARIABLE IS 

* THEN SET TO THE VALUE OF THIS EXPR. IF THE VARIABLE IS PROCEDED BY 

* A STRING (AGAIN IN SINGLE OR DOUBLE QUOTES). THE STRING WILL BE 

* PRINTED FOLLOWED BY A COLON. TBI THEN WAITS FOR INPUT EXPR. AND 

* SET THE VARIABLE TO THE VALUE OF THE EXPR. 


* 

* IF THE INPUT EXPR. IS INVALID. TBI WILL PRINT 

* "SORRY" AND REPRINT THE PROMPT AND REDO THE 

* WILL NOT TERMINATE UNLESS YOU TYPE CONTROL-C. 

* •INPERR•• 

* 

♦ 'LET* IS FOLLOWED BY A LIST OF ITEMS SEPERATED 


"WHAT7", -HOW?" OR 
INPUT. THE EXECUTION 
THIS IS HANDLED IN 


BY COMMAS. EACH ITEM 
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* CONSISTS OF A VARIAELE. AN EQUAL SIGN, ANO AN 

* THE EXPR. AND SET THE VAR IBLE TO THAT VALUE 

* "LET' COMMAND WITHOUT THE WORD ‘LET*. THIS I 

* 


F2CA 

210000 

2390 

REM 

L X I 

H.O 

F2CC 

C3D3F2 

2392 


JMP 

IF l 

¥ 

F 2 DO 

CD5BF3 

2395 

IFF 

CALL 

EXPR 

F203 

7C 

2397 

IF1 

MOV 

A . H 

F 204 

85 

2399 


ORA 

L 

F 205 

C221F1 

2401 


JNZ 

HUNSML 

F2D8 

CD7FFS 

2403 


CALL 

FNOSKP 

F2DE 

021AF1 

24 0 5 


JNC 

RUNT SL 

F2DE 

C353F0 

2407 


JMP 

RSTART 

Fill 

2ABB00 

2410 

INPERR 

LHLD 

STKINP 

F2E4 

F9 

2412 


SPHL 

• 

F2ES 

El 

2414 


POP 

H 

F2E6 

22B700 

2416 


SHLD 

CURRNT 

F2E5 

01 

2418 


POP 

0 

F2EA 

£ 

01 

2420 


POP 

D 



2423 

INPUT 

DS 

0 

F2EB 

05 

2425 

IP1 

PUSH 

D 

F2EC 

CD74F6 

2427 


CALL 

QT ST G 

F2EF 

C31AF3 

2429 


JMP 

IPS 

F2F2 

CD89F5 

24 31 

IP2 

CALL 

T ST V 

F2F5 

DA0EF3 

2433 


JC 

IPS 

F2F8 

CD2CF3 

24 35 

IP 3 

CALL 

IP1 2 

F2FE 

11CAOO 

24 3 7 


LXI 

0,BUFFER 

F2FE 

CD5BF3 

2439 


CALL 

EXPR 

F 201 

CD2AF5 

2441 


CALL 

ENDCHK 

F3C4 

01 

2443 


POP 

C 

F 3C5 

cd 

2445 


XCHG 

. 

F 306 

73 

2447 


MOV 

M.E 

F 30 7 

23 

2449 


I NX 

H 

F 306 

72 

2451 


MOV 

M.D 

F 30 V 

El 

2453 

IP4 

POP 

H 

F30A 

22B700 

2455 


SHLD 

CURRNT 

F30D 

D1 

24 57 


POP 

D 

F30E 

FI 

2459 

IP5 

POP 

PSW 

F30F 

C0BBF5 

2461 

IP6 

TSTC 

•.•.IP7 

F 312 

2C 

2463 




F 313 

03 

24 64 




F 3 14 

C3EBF2 

2465 


JMP 

INPUT 

F 31 7 

C305F5 

2467 

I P 7 

JMP 

FINISH 

F 3 1 A 

D5 

2469 

IP8 

PUSH 

D 

F 31 E 

CD89F5 

2471 


CALL 

1ST V 

F 31 E 

D224F3 

24 73 


JNC 

IPU 

F 321 

C330F5 

2475 

IP10 

JMP 

QWHAT 

F 324 

43 

2477 

IPU 

MOV 

B.E 

F 326 

01 

2479 


POP 

D 

F 32 6 

CDA3F6 

2481 


CALL 

PRTCHS 

F 329 

C3F8Ft 

2463 


JMP 

IP3 

F32C 

Cl 

2485 

IP12 

POP 

B 

F 320 

05 

2487 


PUSH 

D 

F32E 

EB 

2489 


XCHG 

. 

F32F 

2AB700 

2491 


LHLD 

CURRNT 

F 332 

E5 

24 9 3 


PUSH 

H 

F 333 

21cBF2 

2495 


LXI 

H , I P 1 

F 336 

22B7C0 

2497 


SHLD 

CURRNT 

F339 

21C 0 00 

2499 


LXI 

H.O 

F33C 

39 

2501 


DAD 

SP 

F33D 

22BB00 

2503 


SHLD 

STKINP 

F34C 

05 

2505 


PUSH 

D 

F 341 

3E20 

2507 


MV I 

A, • • 

F 343 

C5 

2509 


PUSH 

B 

F 344 

C39BF7 

2511 


JMP 

GETLN 

F 34 7 

1A 

2514 

DEFLT 

LDAX 

□ 

F 346 

FEOD 

2516 


CPI 

acR 

F 34A 

CA58F3 

2518 


JZ 

LT4 

▼ 


2521 

LET 

DS 

0 

F34D 

C0F3F4 

2523 

LT2 

CALL 

SETVAL 

72 

PCC's 

REFERENCE 

BOOK 




EXPR. TBI EVALUATES 
. TBI MILL ALSO HANDLE 
S DONE BY •DEFLT • • 

*** REM *+* 

THIS IS LIKE •IF 0* 

*** IF *** 

IS THE EXPR.=0? 

NO. CONTINUE 
YES. SKIP REST OF LINE 
ANO RUN THE NEXT LINE 
IF NC NEXT. RE-START 

*** INPERR *** 

RESTORE OLD SP 
AND OLD •CURRN T• 

AND OLD TEXT POINTER 
REDO INPUT 


SAVE IN CASE OF ERROR 
IS NEXT ITEM A STRING? 
NO 

YES. BUT FOLLOMEO BY A 
VARIAELE? NO. 

POINTS TO BUFFER 
EVALUATE INPUT 

OK. GET OLD HL 

SAVE VALUE IN VAR. 


GET OLD * CURRNT• 

AND OLD TEXT POINTER 
PURGE JUNK IN STACK 
IS NEXT CH. •,•? 


YES. MORE ITEMS. 

SAVE FOR *PRTSTG• 
MUST BE VARIABLE NOW 

"WHAT?" IT IS NOT? 


PRINT THOSE AS PROMPT 
YES.INPUT VARIABLE 
RETURN ACDRESS 
SAVE TEXT POINTER 

ALSO SAVE ‘CURRNT• 

A NEGATIVE NUMBER 
AS A FLAG 
SAVE SP TOO 


OLD HL 

PRINT A SPACE 

AND GET A LINE 

*** DEFLT *** 
EMPTY LINE IS OK 
ELSE IT IS ‘LET* 

*** LET *** 



F 350 
F 353 
F 354 

CDBBF5 

2C 

03 

2525 
2527 
252 6 

LT3 

TSTC 

•.•.LT* 

SET VALUE TO VAR 

F 355 

C34DF3 

2529 


JMP 

LET 

ITEM BY ITEM 

F 358 

* 

C309F5 

2531 

LT4 

JMP 

FINISH 

UNTIL FINISH 


********************************************************************** 

* 

* *** EXPR *** 

4 

* •£XPR• EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS. 

* <expr>::=<expri> 

* <E XPR I >< REL . OP • XEXPR1 > 

* WHERE <REL.OP.> IS ONE OF THE OPERATORS IN TAB6 ANC THE RESULT OF 

* THESE OPERATIONS IS 1 IF TRUE AND 0 IF FALSE. 

* <EXPR1>:: = (♦ OR —1<EXPR2>l♦ OR — <EXPR2>)(....) 

* WHERE () ARE OPTIONAL AND (....) ARE OPTIONAL REPEATS. 

* <EXPR2>::=<EXPR3>(<* OR ✓><EXPR3>>{....) 

* <E XPR3>II= <VARI ABLE > 

* <FUNCTION> 

* (<EXPR>) 

* <EXPR> IS RECURSIVE SO THAT VARIABLE *8* CAN HAVE AN <EXPR> AS 


* INDEX. FUNCTIONS CAN HAVE 

AN <£XPR> AS ARGUMENTS. AND 

* <LXPR3> CAN 

* 

BE AN <EXPR> 

IN PARANTHESE. 


F 356 

CDA3F3 

2553 

EXPR 

CALL 

EXPR 1 

*** EXPR *** 

F35E 

E5 

2555 


PUSH 

H 

SAVE <EXPR1> VALUE 

F35F 

217CF7 

2557 


L XI 

Hi TAB6—1 

LOOKUP REL.OP. 

F 362 

C3CFF0 

2559 


JMP 

EXEC 

GO DO IT 

F 365 

C08EF3 

2561 

XPR1 

CALL 

XPR8 

REL.CP.">=" 

F 366 

DB 

2563 


RC 

. 

NO. RETURN HL=0 

F 369 

6F 

2565 


MOV 

L . A 

YES. RETURN HL=1 

F36A 

C9 

2567 


RET 

. 


F36B 

CD8EF3 

2569 

XPR2 

CALL 

XPR8 

REL.OP.“A" 

F36E 

CB 

2571 


RZ 

• 

FALSE. RETURN HL=0 

F36F 

6F 

2573 


MOV 

L, A 

TRUE. RETURN HL=! 

F 370 

C 9 

2575 


RET 

. 

F371 

CD8EF3 

2577 

XPR3 

CALL 

XPR8 

REL.0P.">* 

F3 74 

ca 

2579 


RZ 

. 

FALSE 

F375 

08 

2561 


RC 

. 

ALSO FALSE. HL=0 

F 376 

6F 

2563 


MOV 

L • A 

TRUE. HL=l 

F 377 

C9 

2585 


RET 

. 


F 376 

CD8EF3 

2587 

XPR4 

CALL 

XPR8 

WEL.GP.“<=~ 

F376 

6F 

2589 


MOV 

L . A 

SET HL=1 

F37C 

Cfc> 

2591 


RZ 

. 

REL. TRUE. RETURN 

F37D 

08 

2593 


RC 

• 

F37E 

6C 

2595 


MOV 

L.H 

ELSE SET HL=0 

F37F 

C9 

2597 


RET 

t 

F 380 

CD8EF3 

2599 

XPR5 

CALL 

XPR8 

REL . OP ••• = *• 

F 383 

CO 

2601 


RNZ 

. 

FALSE. RETRUN HL=0 

F 364 

6F 

2603 


MOV 

L . A 

ELSE SET HL=1 

F 385 

C9 

2605 


RET 

. 


F 386 

CU8EF3 

2607 

XPR6 

CALL 

XPR 8 

REL.OP •" <" 

F 389 

DO 

2609 


RNC 

» 

FALSE. RETURN HL=0 

F36A 

6F 

2611 


MOV 

L.A 

ELSE SET HL=1 

F 3 66 

C9 

2613 


RET 

• 


F38C 

El 

2615 

XPR7 

POP 

H 

NOT REL.CP. 

F3BD 

C9 

2617 


RET 

. 

RETURN HL 3 <EXPR1> 

F J8E 

79 

2619 

XPR8 

MOV 

A.C 

SUBROUTINE FOR ALL 

F J6F 

El 

2621 


POP 

H 

REL.OP.•S 

F 390 

Cl 

2623 


POP 

6 


F 391 

E5 

2625 


PUSH 

H 

REVERSE TOP OF STACK 

F 392 

C5 

2627 


PUSH 

B 

F 393 

4F 

2629 


MOV 

C. A 


F 394 

CDA3F3 

2631 


CALL 

EXPR1 

GET 2ND <EXPR1> 

F397 

EB 

2633 


XCHG 

. 

VALUE IN DE NOW 

F 396 

E3 

2635 


XTHL 


1ST <EXPR1> IN HL 

F399 

CDE3F4 

2637 


CALL 

CKHLDE 

COMPARE 1ST WITH 2ND 

F39C 

01 

2639 


POP 

D 

RESTORE TEXT POINTER 

F3 9D 

210000 

26 41 


LXI 

H.O 

SET HL=0 . A=1 

F 3A0 

3601 

2643 


MV I 

A • 1 


F3A2 

4 

C9 

2645 


RET 

t 


F 3A3 

CDBBF5 

2646 

EXPR 1 

TSTC 

•-'.XP11 

NEGATIVE SIGN? 

F3Afc 

20 

2650 
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F3A7 

06 

2651 





F 3 Ab 

210000 

26 52 


LXi 

H.O 

YES. FAKE *0-* 

F3AB 

C3D5F3 

2654 


JMP 

XPl 6 

TREAT LIKE SUBTRACT 

F 3 Afc 

COBBF5 

2656 

XP11 

TSTC 

»XPl2 

POSITIVE SIGN? IGNORE 

F 3B1 

2B 

2658 





F3B2 

00 

2659 





F 363 

CODFF3 

2660 

XPl 2 

CALL 

EXPR2 

1ST <EXPR2> 

F3bO 

CD66F5 

2662 

XPl 3 

TSTC 

•+••XPl5 

ADD? 

F 369 

28 

2664 





F 3bA 

lb 

2665 





F3BB 

E5 

2666 


PUSH 

H 

YES. SAVE VALUE 

F3BC 

CD OF F 3 

26 68 


CALL 

EXPR2 

GET 2ND <E XPR2 > 

F3bF 

EB 

2670 

XPl 4 

XCHG 

• 

2ND IN DE 

F3C0 

E 3 

2672 


X THL 


1ST IN HL 

F3C1 

7C 

26 74 


MOW 

A » H 

COMPARE SIGN 

F3C2 

AA 

2676 


XRA 

D 


F3C3 

7 A 

2678 


MOV 

A • D 


F3C4 

19 

268C 


DAD 

0 


F3C5 

01 

2682 


POP 

D 

RESTORE TEXT POINTER 

F3C6 

FA66F3 

2684 


JM 

XPl 3 

1ST 2ND SIGN DIFFER 

F3CS 

AC 

2686 


XH A 

H 

1ST 2ND SIGN EQUAL 

F3CA 

F2B6F3 

2688 


JP 

XPl 3 

SO IS RESULT 

F3CD 

C3F9F5 

269C 


JMP 

QHOW 

ELSE WE HAVE OVERFLOW 

F3DC 

C0dBF5 

2692 

XPl 5 

TSTC 

•-•.XPR9 

SUBTRACT 7 

F3D3 

2D 

2694 





F 304 

92 

2695 





F 305 

E5 

2696 

XPl 6 

PUSH 

H 

YES. SAVE 1ST <EXPR2> 

F 306 

C00FF3 

2698 


CALL 

EXPR2 

GET 2ND <EXPR2> 

F 3 09 

C0CEF4 

2700 


CALL 

CHGSGN 

NEGATE 

F3DC 

* 

C3BFF3 

2702 


JMP 

XP1 4 

AND ACD THEM 

F3DF 

CD43F4 

2705 

EXPr<2 

CALL 

EXPR 3 

GET 1ST <EXPR3> 

F3E2 

COBBFS 

2707 

XP21 

TSTC 

•*•.XP24 

MULTIPLY? 

F3E5 

2 A 

2709 





F3E6 

20 

2710 





F3E7 

E5 

2711 


PUSH 

H 

YES. SAVE 1ST 

F3E6 

CD43F4 

2713 


CALL 

EXPR 3 

AND GET 2ND <EXPR3> 

F3E6 

0600 

2715 


MVI 

B.O 

CLEAR B FOR SIGN 

F3EO 

C0CBF4 

2717 


CALL 

CHKSGN 

CHECK SIGN 

F 3F0 

E3 

27 19 


X THL 


1ST IN HL 

F 3F 1 

C0CBF4 

2721 


CALL 

CHKSGN 

CHECK SIGN OF 1ST 

F3F4 

EB 

2723 


XCHG 

, 


F 3F5 

E 3 

2725 


XTHL 



F3F6 

7C 

2727 


MOV 

A * H 

IS HL > 255 7 

F 3F7 

B7 

2729 


OH A 

A 


F 3Fb 

CA01F4 

2731 


JZ 

XP22 

NO 

F3FB 

7A 

2733 


MOV 

A . D 

YES. HOW ABOUT DE 

F JFC 

B2 

2735 


OKA 

C 


F3FD 

EB 

2737 


XCHG 

• 

PUT SMALLER IN HL 

F3FE 

C2FAF5 

2739 


JNZ 

AHOW 

ALSO >. WILL OVERFLOW 

F 40 1 

70 

27 41 

XP22 

MOW 

A , L 

THIS IS DUMB 

F 40 2 

21 COCO 

274 3 


LXI 

H.O 

CLEAR RESULT 

F 406 

B7 

2745 


ORA 

A 

ADD AND COUNT 

F 406 

CA35F4 

2747 


JZ 

XP25 


F 409 

19 

2749 

XP23 

DAO 

C 


F 40A 

DAFAFb 

2751 


JC 

AHOW 

OVERFLOW 

F 400 

30 

2753 


OCR 

A 


F40E 

C2C9F4 

2755 


JNZ 

XP23 


F 41 1 

C33BF4 

2757 


JMP 

XP25 

FINI SHED 

F 4 l 4 

COBBFb 

2759 

XP24 

TSTC 

•/•.XPR9 

DIVIDE? 

F 4 1 7 

2F 

2761 





F 41 b 

4t 

2762 





F 4 1 9 

Eb 

2763 


PUSH 

H 

YES, SAVE 1ST <EXPR3> 

F 4 1 A 

CD43F4 

2765 


CAlL 

EXPR 3 

AND GET 2ND ONE 

F410 

0600 

2767 


MVI 

S. 0 

CLEAR B FOR SIGN 

F 4 1F 

CDCBF4 

2769 


CALL 

CHKSGN 

CHECK SIGN OF 2ND 

F 422 

E3 

2771 


XTHL 


GET 1ST IN HL 

F423 

CDCBF4 

2773 


CALL 

CHKSGN 

CHECK SIGN OF 1ST 

F 426 

EB 

2775 


XCHG 

. 


F 42 7 

E3 

2777 


XTHL 



F 42 b 

EB 

2779 


XCHG 

• 


F 429 

7 A 

27ei 


MOV 

A . D 

DIVIDE BY 0? 

F 42 A 

83 

27o 3 


ORA 

£ 


F 42b 

CAFaF b 

2715 


JZ 

AHOW 

SAY "HOW?" 

F42E 

C5 

2767 


PUSH 

b 

ELSE SAVE SIGN 

74 

PCC's 1 

REFERENCE 

BOOK 






F42F 

CDAEF4 

2789 


CALL 

DIVIDE 

USE SUBROUTINE 

F 432 

60 

2791 


MOV 

H.8 

RESULT IN HL NOW 

F 433 

69 

2793 


MOV 

L.C 


F 434 

Cl 

2795 


POP 

e 

GET SIGN BACK 

F 43b 

01 

2797 

XP25 

POP 

D 

AND TEXT POINTER 

F 436 

7C 

2799 


MOV 

A • H 

HL MUST EE ♦ 

F 43 7 

B7 

2801 


□ RA 

A 


F438 

FAF9F5 

2803 


JM 

CHOU 

ELSE IT IS OVERFLOW 

F436 

78 

2805 


MOV 

A.B 


F43C 

87 

2807 


ORA 

A 


F43D 

FCCEF4 

2809 


CM 

CHGSGN 

CHANG6 SIGN IF NEEDED 

F 440 
$ 

C3E2F3 

2811 


JMP 

XP21 

LOOK FOR MORE TERMS 

F 443 

2159F 7 

2814 

6 XPR 3 

L X I 

H.TAd3-l 

FIND FUNCTION IN TAB3 

F 446 

C3CFF0 

2816 


JMP 

EXEC 

AND GO DC IT 

F 4 49 

CD89F5 

2818 

NO TF 

CALL 

TSTV 

NO. NOT A FUNCTION 

F44C 

DA54F4 

2820 


JC 

XP32 

NOR A VARIABLE 

F44F 

7£ 

2822 


MOV 

A.M 

VARIABLE 

F450 

23 

2824 


INX 

H 


F451 

66 

2826 


MOV 

F.M 

VALUE IN HL 

F 452 

6F 

2828 


MOV 

L . A 


F 453 

C9 

2830 


RET 

• 


F 454 

CDCFF5 

2832 

XP32 

CALL 

TSTNUM 

OR IS IT A NUMBER 

F457 

78 

2834 


MOV 

A.B 

» OF ClGIT 

F456 

B7 

2836 


ORA 

A 


F 459 

CO 

2838 


RNZ 

. 

OK 

F45A 

CuBBFb 

2840 

PARN 

TSTC 

•{•.XPRO 

NO DIGIT. MUST BE 

F45D 

28 

2842 




F 456 

09 

2943 





F45F 

C05BF3 

2844 

PARNP 

CALL 

E XPR 

“(EXPR)" 

F 462 

COB8F5 

2846 


TSTC 

•)•.XPRO 


F 46 5 

29 

2846 





F 466 

01 

2349 





F 467 

C9 

2850 

XPR9 

RET 

. 


F4o8 

C330F5 

2852 

XPRO 

JMP 

QWHAT 

ELSE SAY! "WHAT?" 

F46B 

CD5AF4 

2855 

RND 

CALL 

PARN 

*** RND(EXPR) *** 

F46E 

7C 

2857 


MOV 

A . H 

EXPR MUST BE ♦ 

F46F 

B7 

28 59 


ORA 

A 


F 470 

FAF9F5 

2861 


JM 

CHOW 


F 47 3 

B5 

2863 


ORA 

L 

AND NON-ZERO 

F 4 74 

CAF9F5 

2865 


JZ 

CHOW 


F477 

Do 

2867 


PUSH 

D 

SAVE BOTH 

F478 

E5 

2869 


PUSH 

H 


F479 

2AC700 

2871 


LHLD 

RANPNT 

GET MEMORY AS RANDOM 

F47C 

1193F7 

2873 


LX 1 

0.RANEND 


F47F 

COEDF4 

2875 


CALL 

COMP 


F482 

0A88F4 

2877 


JC 

RA 1 

WRAP AROUND IF LAST 

F 485 

21OOFO 

2879 


LXI 

F.aOTROM 


F488 

3C 

2881 

R A 1 

MOV 

E.M 


F489 

23 

2683 


INX 

H 


F48A 

56 

2885 


MOV 

D. M 


F 486 

22C700 

2887 


SHLD 

RANPNT 


F 486 

El 

2889 


POP 

H 


F48F 

EB 

2691 


XCHG 

• 


F 490 

C5 

2693 


PUSH 

B 


F 491 

COAEF4 

2895 


CALL 

DIVIDE 

RND(N)=MG0(M.N)+1 

F494 

Cl 

2897 


POP 

8 

F 4 95 

01 

2899 


POP 

D 


F 496 

23 

2901 


INX 

H 


F 497 
$ 

C9 

2903 


RET 

• 


F 498 

CD5AF4 

2906 

ABS 

CALL 

PARN 

*** ABS(EXPR) *** 

F 498 

13 

2908 


OCX 

D 

F49C 

C0CBF4 

2910 


CALL 

CHKSGN 

CHECK SIGN 

F49F 

13 

2912 


INX 

C 


F4A0 

C9 

2914 


RET 

• 


F 4 A1 

2a 0020 

2916 

SIZE 

LHLD 

TXTUNF 

*** SIZE *+* 

F 4A4 

05 

2918 


PUSH 

D 

GET TFE NUMBER OF FREE 

F4A5 

EB 

2920 


XCHG 

. 

BYTES BETWEEN "TXTUNF" 

F 4A6 

iAfalOO 

2922 


LHLD 

TXTLMT 

ANO "TXTLMT* 

F4A9 

CDC4F4 

2924 


CALL 

SUBDE 


F 4 AC 

D1 

2926 


POP 

D 


F4AD 

C9 

2928 


RET 

* 



* 
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4 ********************************************************************* 

* *** DIVIDfc *** SUBDE *** CHKSGN *** CHGSGN *** fc CKHLCE *** 

* 

* •DIVIDE* DIVIDES HL EY DE. RESULT IN BC. REMAINDER IN HL 
A 

* ‘SUBDE* SUBTRACTS DE FROM HL 

* 

* •CHKSGN* CHECKS SIGN OF HL. IF ♦ , NO CHANGE. IF CHANGE SIGN AND 

* FLIP SIGN OF B. 

* 

* * CHGSGN * CHNGES SIGN OF HL AND B UNCONDITIONALLY. 

* 

* • CKHL DE 1 CHECKS SIGN OF HL AND DE. IF DIFFERENT. HL AND DE ARE 

* INTERCHANGED. IF SAME SIGN. NOT INTERCHANGED. EITHER CASE. HL DE 

* ARE THEN COMPARED TO SET THE FLAGS. 

A 


F4AE 

E5 

2948 

DI VIOE 

PUSH 

H 

*** DIVICE AAA 

F4AF 

6C 

2950 


MOV 

L.H 

DIVIDE H BY DE 

F4B0 

2600 

2952 


MV1 

H .0 


F4B2 

CDB9F4 

2954 


CALL 

D V1 


F 4b 5 

41 

2956 


MOV 

B.C 

SAVE RESULT IN B 

F4B6 

7D 

2958 


MOV 

A.L 

(RENAINDERPL)/DE 

F4B7 

El 

2960 


POP 

H 


F4B6 

67 

2962 


MOV 

F.A 


F 489 

OEFF 

2964 

D V 1 

MVI 

C.-l 

RESULT IN C 

F4BB 

OC 

2966 

CV2 

INR 

C 

DUMB ROUTINE 

F 46C 

CDC4F4 

2968 


CALL 

SUBDE 

DIVIDE BY SUBTRACT 

F4BF 

D2B6F4 

2970 


JNC 

D V 2 

AND C CUN T 

F4C2 

19 

2972 


DAO 

C 


F4C3 

* 

C9 

2974 


RET 

• 


▼ 

F4C4 

7D 

2977 

SUBDE 

MOV 

A.L 

*** SUBDE AAA 

F*C5 

93 

2979 


SUB 

E 

SUBTRACT DE FROM 

F4Ct 

6F 

2981 


MOV 

L . A 

HL 

F4C7 

7C 

2983 


MOV 

A . H 


F4Cb 

9A 

2985 


SBB 

D 


F4C9 

67 

2987 


MOV 

H . A 


F4CA 

£ 

C9 

2989 


RET 

. 


F4C6 

7C 

2992 

CHKSGN 

MOV 

A.H 

AAA CHKSGN AAA 

F4CC 

B7 

2994 


ORA 

A 

CHECK SIGN OF HL 

F4CC 

£ 

FO 

2996 


RP 

. 

IF CHANGE SIGN 

F4CE 

7C 

2999 

CHGSGN 

MOV 

A.H 

AAA CHGSGN AAA 

F4CF 

85 

3001 


ORA 

L 


F4D0 

ca 

30 0 3 


RZ 

• 


F4D1 

7C 

3005 


MOV 

A.H 


F4D2 

F5 

3007 


PUSH 

PS* 


F 4D3 

2F 

3009 


CMA 

* 

CHANGE SIGN OF HL 

F4D4 

67 

3011 


MOV 

H . A 


F4DS 

7D 

30 13 


MOV 

A.L 


F4D6 

2F 

3015 


CMA 

. 


F4D7 

6F 

3017 


MOV 

L. A 


F 406 

23 

30 19 


I NX 

H 


F409 

FI 

3021 


POP 

PS* 


F 40 A 

AC 

30 2 3 


XRA 

H 


F4D6 

F2F9F5 

3025 


JP 

OHO* 


FADE 

78 

3027 


MOV 

A , 6 

AND ALSO FLIP 6 

F4DF 

EEbO 

3029 


XR 1 

080H 


F4E1 

47 

3031 


MOV 

B.A 


F4E2 

£ 

C9 

3033 


RET 

* 


F4E3 

7C 

3036 

CKHLOE 

MOV 

A.H 


F4E4 

AA 

3036 


XRA 

D 

SAME SIGN? 

F4E5 

F2E9F4 

3040 


JP 

CK1 

YES. COMPARE 

F4E8 

EB 

3042 


XCHG 

. 

NO. XCH AND COMP 

F4E9 

CDEDF4 

3044 

CK1 

CALL 

COMP 


F4EC 

£ 

C9 

3046 


RET 

. 


F4ED 

7C 

3049 

COMP 

MOV 

A.H 

AAA C CMP AAA 

F4EE 

8A 

3051 


CMP 

D 

CCMPARE FL * ITH DE 

F4EF 

CO 

3053 


RNZ 

• 

RETURN CORRECT C AND 

F4FC 

70 

3055 


MOV 

A.L 

Z FLAGS 

F4F1 

36 

3057 


CMP 

L 

BUT OLD A IS LOST 
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F 4F2 C9 3059 RET , 

* 

********************************************************************** 

* 

* *** SETVAL *** FIN *** ENDCHK *** 6 ERROR (C FRIENDS) *** 

* "SETVAL" EXPECTS A VARIABLE. FOLLOWED BY AN EQUAL SIGN AND THEN AN 

* EXPR. IT EVALUATES THE EXPR. AND SET THE VARIABLE TO THAT VALUE. 

* "FIN" CHECKS THE END OF A COMMAND. IF IT ENDED WITH w;", EXECUTION 

* CONTINUES. IF IT ENDED WITH A CR. IT FINDS THE NEXT LINE AND 

* CONTINUE FROM THERE. 

* 


* "ENDCHK" CHECKS IF A COMMAND IS ENDED WITH CR. THIS IS REQUIREO 

* CERTAIN COMMANDS. (GOTO. RETURN. AND STOP ETC.) 

* 


IN 


* "ERROR" PRINTS THE STRING POINTED BY DE (AND ENDS WITH CR). IT THEN 

* PRINTS THE LINE POINTED BY •CURRNT• WITH A "?" INSERTED AT WHERE THE 

* OLD TEXT POINTER (SHQUCO BE ON TOP OF THE STACK) POINTS TO. 

* EXECUTION OF TB IS STOPPED AND TB1 IS RESTARTED. HOWEVER. IF 

* •CURR NT• -> ZERO (INDICATING A DIRECT COMMAND), THE DIRECT COMMAND 

* IS NOT 


* PRINTED. AND IF •CURRNT• -> NEGATIVE * (INDICATING 'INPUT* 

* COMMAND, THE INPUT LINE IS NOT PRINTED AND EXECUTION IS NOT 

* TERMINATED BUT CONTINUED AT •INPERR•• 


* RELATED TO 'ERROR * ARE THE FOLLOWING: •QWHAT• SAVES TEXT POINTER IN 

* STACK AND GET MESSAGE "WHAT?" 'AWHAT' JUST GET MESSAGE "WHAT?" AND 

* JUMP TO 'ERROR*. •QSORRY• AND 'ASORRY' DO SAME KIND OF THING. 

* •QHOW• AND 'AHOW IN THE ZERO PAGE SECTION ALSO DO THIS 

* 


F «*F3 

C089F5 

3093 

SETVAL 

CALL 

TSTV 

*** SETVAL *** 

F4F6 

DA30F5 

3095 


JC 

QWHAT 

"WHAT?" NO VARIABLE 

F 4F9 

E5 

3097 


PUSH 

H 

SAVE ADDRESS OF VAR. 

F 4FA 

CDBBF5 

3099 


TSTC 

•='.SV1 

PASS "=" SIGN 

F4FD 

3D 

31 01 





F4FE 

OD 

3102 





F4FF 

CD5BF3 

3103 


CALL 

EXPR 

EVALUATE EXPR. 

F 50 2 

44 

31 05 


MU V 

B » H 

VALUE IN BC NOW 

F 503 

4D 

31 07 


MOV 

C.L 


F 504 

El 

3109 


PUP 

H 

GET ADDRESS 

F 505 

71 

3111 


MOV 

M.C 

SAVE VALUE 

F 506 

23 

3113 


INX 

H 


F 507 

70 

3115 


MOV 

M.B 


F 50 8 
$ 

C9 

3117 


RET 

, 


F £09 

CDOFF5 

31 20 

FINISH 

CALL 

FIN 

CHECK END OF COMMAND 

F50C 

$ 

C330F5 

3122 

SV1 

JMP 

QWHAT 

PRINT "WHAT?" IF WRONG 

F50F 

CDBBF5 

3125 

FIN 

TSTC 

•; • .fii 

*** FIN **•* 

F512 

38 

3127 





F 513 

04 

3126 





F 51 4 

FI 

3129 


POP 

PSW 

PURGE RET ADDR. 

F515 

C32IF1 

31 31 


JMP 

RUNSML 

CONTINUE SAME LINE 

F 51 b 

CDBBF5 

3133 

F 1 1 

TSTC 

SCR » F12 

NOT "J", IS IT CR? 

F 516 

00 

3135 





F51C 

04 

31 36 





F 510 

FI 

31 37 


POP 

PSW 

YES, PURGE RET ADDR. 

F51E 

C311F1 

31 39 


JMP 

RUNNXL 

RUN NEXT LINE 

F 521 

4 

C9 

3141 

FI2 

RET 

• 

ELSE RETURN TO CALLER 

F522 

1A 

3144 

IGNBLK 

LOAX 

D 

*** IGNBLK *** 

F £23 

FE20 

31 46 


CPI 

, • 

IGNORE BLANKS 

F 525 

CO 

3146 


RNZ 

. 

IN TEXT (WHERE DE->) 

F 52b 

13 

3150 


INX 

D 

AND RETURN THE FIRST 

F 527 
* 

C322F5 

3152 


JMP 

IGNBLK 

NON-BLANK CHAR. IN A 

F 52 A 

CD22F5 

31 55 

ENDCHK 

CALL 

IGNBLK 

*** ENDCHK *** 

F52D 

FE OD 

3157 


CPI 

SCR 

END WITH CR? 

F a2F 

* 

C6 

31 59 


RZ 

• 

OK, ELSE SAY! "WHAT?" 

F 530 

05 

31 62 

QWHAT 

PUSH 

D 

*** QWHAT *** 

F 531 

I 142F0 

31 64 

AWHAT 

L XI 

0.WHAT 

*** AWHAT *** 

F 534 

CD93F7 

31 66 

ERROR 

CALL 

CRLF 


F 537 

CD65F6 

31 68 


CALL 

PRTSTG 

PRINT ERROR MESSAGE 
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F53A 

ZA 6700 

31 70 


LHLD 

CURRNT 

GET CURRENT LINE * 

F5JD 

E5 

3172 


PUSH 

H 


F53E 

7fc 

31 74 


MOV 

A . M 

CHECK THE VALUE 

FE3F 

23 

3176 


I NX 

H 


F54C 

B6 

3176 


ORA 

M 


F 541 

D1 

31 eo 


POP 

D 


F542 

CA 2eF0 

31 62 


JZ 

TELL 

IF ZERO, JUST RESTART 

F 545 

7E 

31 64 


MOV 

A.M 

IF NEGATIVE, 

FS4o 

B7 

3106 


ORA 

A 


F 547 

FAE1F2 

3186 


JM 

INPERR 

REDO INPUT 

F 54A 

CDF2F6 

31 9C 


CALL 

PRTLN 

ELSE PRINT THE LINE 

F54D 

Cl 

3192 


POP 

B 


F54E 

41 

31 94 


MOV 

B.C 


F54F 

CDA3F6 

31 96 


CALL 

PRTCHS 


F 552 

3E3F 

31 90 


MV I 

A , • 7 • 

PRINT A "7" 

F 554 

C09SF7 

320C 


Call 

OUTCH 


F 557 

CD65F6 

3202 


CALL 

PRTSTG 

LINE 

F55A 

C326F0 

3204 


JMP 

TELL 

THEN RESTART 

F55D 

D5 

3206 

GSQRRY 

PUSH 

D 

*+* CSORRY ♦** 

FSSE 

114DF0 

3208 

ASORRY 

L X I 

D , SURRY 

*** ASORRY *** 

F5ol 

C334F5 

3210 


JMP 

ERROR 



* 

»$<<»;(.*»#****:***<!*****<:******<(*********>***:<<:************* ********** ***** 

* 

* *** FNDLN (& FRlcNDS) *** 

* 

* •F NDL N• FINOS A LINE WITH A GIVEN LINE * (IN HLI IN THE TEXT SAVE 

* AREA. DE IS USED AS THE TEXT POINTER. IF THE LINE IS FOUND, DE 

* WILL POINT TU THE BEGINNING OF THAT LINE (I.E.. THE LOW BYTE OF THE 

* LINE «). AND FLAGS ARE NC t Z. IF THAT LINE IS NOT THERE AND A LINE 

* WITH A HIGHER LINE « IS FOUND, OE POINTS TO THERE AND FLAGS ARE NC & 

* NZ. IF WE REACHED THE END OF TEXT SAVE ARE AND CANNOT FIND THE 

* LINE. FLAGS ARE C & NZ. 'FNDLN* WILL INITIALIZE DE TC THE BEGINNING 

* OF THE TEXT SAVE AREA TQ START THE SEARCH. SOME OTHER ENTRIES OF 

* THIS ROUTINE WILL NOT INITIALIZE DE AND DO THE SEARCH. •FNDLP • 
4 WILL START WITH DE ANO SEARCH FOR THE LINE W. 'FNCNXT * WILL BUMP DE 


* BY 

2. FIND A 

CR ANO 

THEN START S 

EARCH. 

•FNDSKP* USE CE TO FIND 


* CR , 

£ 

AND THEN 

STRART 

SEARCH. 





F 564 

7C 

3232 

FNDLN 

MOV 

A , H 

*** FNDLN +** 


F 565 

B7 

3234 


ORA 

A 

CHECK SIGN OF HL 


F a66 

FAF9F5 

3236 


JM 

QHQw 

IT CANNOT BE - 


F 569 

£ 

110220 

3238 


L XI 

D,TEXT 

INIT. TEXT PCINTER 


F56C 

15 

3241 

FNDLP 

INX 

D 

IS IT EOT MARK 7 


F56D 

1A 

3243 


LOAX 

0 



F 56E 

IB 

3245 


CCX 

D 



F56F 

87 

3247 


ADD 

A 



F 570 

Db 

3249 


RC 

• 

C.NZ PASSED END 


F571 

1A 

3251 


LOAX 

D 

WE OIC NCT, GET BYTE 

1 

F 572 

95 

3253 


SUB 

L 

IS THIS THE LINE? 


F 573 

47 

3255 


MOV 

E. A 

COMPARE LCW ORDER 


F 674 

13 

3257 


INX 

□ 



F 575 

1A 

3259 


LOAX 

0 

GET BYTE 2 


F 576 

9C 

3261 


SBa 

H 

COMPARE HIGH ORDER 


F 677 

0A7EFS 

32 6 3 


JC 

FL1 

NC, NGT THERE YET 


F57A 

IB 

3265 


ocx 

C 

ELSE WE EITHER FOUND 


F57o 

BO 

3267 


ORA 

e 

IT. CR IT IS NOT THERE 

F57C 

C9 

3269 


RET 

• 

nc.z:fgukd; nc,nz:no 


F57D 

13 

3272 

F NON X T 

INX 

c 

FIND NEXT LINE 


F a7c 

£ 

13 

3274 

FL1 

INX 

D 

JUST PASSEC BYTE 1 t 

2 

F57F 

1A 

3277 

FNDSKP 

LDAX 

0 

*** FNDSKP *** 


F 580 

FEOD 

3279 


CPI 

SCR 

TRY TC FIND CR 


F5tt2 

C27EF5 

3281 


JNZ 

FL1 

KEEP LOOKING 


F 565 

13 

3263 


INX 

D 

FOUND CR. SKIP OVER 


F 566 

£ 

C36CF5 

3285 


JMP 

FNOLP 

CHECK IF END OF TEXT 


F 589 

C022F5 

328d 

TST V 

CALL 

IGNBLK 

*** T ST V *** 


F5 6C 

0640 

3290 


SU I 

• j>* 

TEST VARIABLES 


F SEE 

08 

3292 


RC 

• 

CINOT A VARIABLE 


F58F 

C2A6F5 

3294 


JNZ 

TV 1 

NOT "S" ARRAY 


F 592 

13 

3296 


INX 

D 

IT IS THE "S" ARRAY 


F 593 

CD5AF4 

3298 


CALL 

PARN 

a SHOULD BE FOLLOWED 
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F 596 

29 

3300 

DAD 

H 

BY (E XPR ) AS ITS INDEX 

F 597 

DAF9F5 

3302 

JC 

OHOW 

IS INDEX TOO BIG? 

F59A 

05 

3304 T STB 

PUSH 

0 

WILL IT FIT? 

F59B 

EB 

3306 

XCHG 

* 


F59C 

CDA1F4 

3308 

CALL 

SIZE 

FIND SIZE OF FREE 

F59F 

CDEDF4 

3310 

CALL 

COMP 

AND CHECK THAT 

F5A2 

0A5EF5 

3312 

JC 

ASORRY 

IF NOT. SAY "SORRY" 

F5A5 

CD5FF6 

3314 

CALL 

LOCR 

IF FITS. GET ADDRESS 

F5A8 

19 

3316 

DAO 

0 

OF 3 (EXPR) AND PUT IT 

F5A9 

Dl 

3318 

POP 

C 

IN HL 

F5AA 

C9 

3320 

RET 

. 

C FLAG IS CLEARED 

F5AB 

FEIB 

3322 TV1 

CPI 

27 

NOT 9. IS IT A TO Z? 

F SAD 

3F 

33 24 

CMC 

. 

IF NOT RETURN C FLAG 

F5AE 

08 

3326 

RC 

. 

F5AF 

13 

3328 

I N X 

D 

IF A THRGUGH Z 

F SBC 

2161C0 

3330 

L X I 

F, VARBGN-2 


F5B3 

07 

3332 

RLC 

» 

HL->VARIABLE 

F 564 

85 

3334 

ADD 

L 

RETURN 

F5B5 

6F 

3336 

MOV 

L • A 

WITH C FLAG CLEARED 

F5B6 

3E00 

33 36 

MV I 

A . 0 


F 568 

8C 

3340 

ADC 

H 


F 569 

67 

3342 

MOV 

H, A 


F 56A 

C9 

3344 

RET 

. 



* 


* ************************************************************^^^***^* 

* 

* *** TSTCH *** TSTNUM *** 

* 

* TSTCH IS USED TO TEST THE NEXT NON-BLANK CHARACTER IN THE TEXT 

* (POINTED BY DE) AGAINST THE CHARACTER THAT FOLLOWS THE CALL. IF 

* THEY DO NOT MATCH, N BYTES OF CODE WILL BE SKIPPEO OVER. WHERE N IS 

* BETWEEN 0 AND £55 ANO IS STOREE IN THE SECOND BYTE FOLLOWING THE 

* CALL. 

* 


* TSTNUM IS USED TO CHECK WHETHER THE TEXT (POINTED BY OE) IS A 

* NUMBER. IF A NUMBER IS FOUND. B WILL BE NON-ZERO AND HL WILL 

* CONTAIN THE VALUE (IN BINARY! CF THE NUMBER. ELSE B AND HL ARE 0. 


* 

F5BB 

E3 

3362 

TSTCH 

xThl 


*** TSTCH *** 

F56C 

CD22FS 

3364 


CALL 

I GN9LK 

IGNORE LEADING BLANKS 

F58F 

BE 

3366 


CMP 

M 

AND TEST THE CHARACTER 

F5C0 

23 

3368 


I NX 

H 

COMPARE THE BYTE THAT 

F SCI 

CACBF5 

3370 


J Z 

TCI 

FOLLOWS THE CALL INST. 

F5C4 

C5 

3372 


PUSH 

B 

WITH THE TEXT (DE->I 

FSC5 

4E 

3374 


MOV 

C.M 

IF NOT =. ADD THE 2ND 

F5C6 

OoOG 

3376 


MVI 

e.o 

BYTE THAT FOLLOWS THE 

FSC8 

09 

3378 


DAD 

a 

CALL TO THE OLD PC 

F5C9 

Cl 

3380 


POP 

B 

I.E.. DO A RELATIVE 

F5CA 

ia 

3382 


DC X 

D 

JUMP IF NOT = 

F5CB 

13 

3384 

TCI 

I NX 

0 

IF =, SKIP THOSE BYTES 

F5CC 

23 

3386 


I N X 

H 

AND CONTINUE 

F5CD 

E3 

3386 


XTHL 



F5CE 

* 

C9 

3390 


RET 

. 


F5CF 

210000 

3393 

TSTNUM 

LX1 

H.O 

*** TSTNUM *** 

F5D2 

44 

3395 


MOV 

6.H 

TEST IF THE TEXT IS 

F5D3 

CD22F5 

3397 


CALL 

IGNBLK 

A NUMBER 

F SD6 

FE3C 

3399 

TNI 

CPI 

■0 • 

IF NOT. RETURN 0 IN 

F SOB 

Da 

3401 


RC 

. 

B AND HL 

F 509 

Fc 3A 

3403 


CPI 

03AH 

IF NUMBERS. CONVERT 

FSD6 

DO 

3405 


RNC 

. 

TO BINARY IN HL ANO 

F5DC 

3EF0 

3407 


MVI 

A,OF OH 

SET 0 TO » OF DIGITS 

F5DE 

A4 

3409 


ANA 

H 

IF H > 255. THERE IS NO 

F 5DF 

C2F9F5 

3411 


JNZ 

CHOW 

ROOM FOR NEXT DIGIT 

F5E2 

04 

3413 


INR 

B 

6 COUNTS * OF DIGITS 

F5E3 

C5 

34 15 


PUSH 

0 

FSE4 

44 

3417 


MOV 

6 . H 

HL=10*HL4(NEW DIGIT) 

F5E5 

4D 

34 19 


MOV 

C.L 

F 5E6 

29 

3421 


DAD 

H 

WHERE 10* IS DONE BY 

F5E7 

29 

3423 


DAD 

H 

SHIFT ANC ADD 

F5E8 

09 

3425 


DAD 

B 

FSE9 

29 

3427 


DAD 

H 


F SEA 

1A 

3429 


LDAX 

D 

ANO (OIGIT) IS FROM 

F5E6 

13 

3431 


I NX 

D 

STRIPPING THE ASCII 

F5EC 

E60F 

34 3 3 


ANI 

OOFH 

CODE 
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F5EE 

65 

3435 

ADO 

L 


F5EF 

6F 

3437 

MOV 

L.A 


F5F0 

3E00 

3439 

MV I 

A « 0 


F5F2 

ec 

3441 

ADC 

H 


FSF3 

67 

3443 

MOV 

H .A 


F5F4 

Cl 

3445 

POP 

6 


F5F5 

1A 

3447 

LDAX 

D 

DO THIS DIGIT AFTER 

F5F6 

F2D6F5 

3449 

JP 

TNI 

DIGIT. S SAYS OVERFLOW 

F5F9 

05 

3451 QHOW 

PUSH 

0 

*** error: m how7" *** 

F5FA 

U48F0 

3453 AHOW 

LX I 

O.HOW 


F5F0 

C334F5 

3455 

JMP 

ERROR 



* 

4 ************************************************************** ******* 
* 

* *** MVUP *** MVDOWN *** PCPA *** t PUSHA *** 

* 

* 'MVUP* MOVES A BLOCK UP FROM WHERE DE-> TO WHERE flC-> UNTIL OE = HL 

* 

* *MVDOWN* MOVES A BLOCK DOWN FROM WHERE DE-> TO WHERE HL-> UNTIL DE = 

* BC 

* 

* ‘POPA• RESTORES THE •FOR• LOOP VARIABLE SAVE AREA FROM THE STACK 

* 

* ‘PUSHA• STACKS THE ‘FOR* LOOP VARIABLE SAVE AREA INTO THE STACK 

* 


F600 

C0EDF4 

34 74 

MVUP 

CALL 

COMP 

*** MVUP *** 

F603 

C8 

34 76 


RZ 

• 

DE = HL. RETURN 

F 604 

1A 

34 78 


LOAX 

0 

GET ONE BYTE 

F 60S 

02 

3480 


STAX 

B 

MOVE IT 

F606 

13 

3482 


I N X 

D 

INCREASE BOTH POINTERS 

F607 

03 

3484 


I NX 

B 


F608 

£ 

C300F6 

3486 


JMP 

MVUP 

UNTIL DONE 

F60B 

78 

3489 

MVDOWN 

MOV 

A,8 

*** MVDOWN *** 

F60C 

92 

3491 


SUB 

0 

TEST IF CE = BC 

F60D 

C213F6 

34 93 


JNZ 

MD1 

NO. GO MOVE 

F 610 

79 

3495 


MOV 

A.C 

MAYBE. GTHEfi BYTE? 

F 611 

93 

34 97 


SUB 

E 


F 612 

C8 

34 9 9 


RZ 

• 

YES. RETURN 

F613 

IB 

3501 

MD1 

OCX 

D 

ELSE MOVE A BYTE 

F614 

2B 

3503 


OCX 

H 

BUT FIRST DECREASE 

F61S 

1A 

3505 


LDAX 

D 

BOTH POINTERS AND 

F616 

77 

3507 


MOV 

M. A 

THEN DCi IT 

F617 

£ 

C30BF6 

3509 


JMP 

MVDOWN 

LOOP BACK 

F61A 

Cl 

3512 

POPA 

POP 

B 

BC = RETURN ADDR. 

F 6 IB 

El 

3514 


POP 

H 

RESTORE LOPVAR. BUT 

F61C 

22BD00 

3516 


SHLD 

LCPVAR 

=0 MEANS NO MORE 

F61F 

7C 

3518 


MOV 

A t H 


F620 

B5 

35 20 


ORA 

L 


F 621 

CA34F6 

3522 


JZ 

PP1 

YEP. GO RETURN 

F624 

El 

3524 


POP 

H 

NOP. RESTORE OTHERS 

F 625 

22BF00 

35 26 


SHLD 

LOPINC 


F 626 

El 

3528 


POP 

H 


F 629 

22C100 

3530 


SHLD 

LOPLMT 


F62C 

El 

3532 


POP 

H 


F62D 

22C300 

3534 


SHLD 

LOPLN 


F 630 

El 

3536 


POP 

H 


F 631 

22C500 

3538 


SHLD 

LOPPT 


F 634 

C5 

3540 

PP1 

PUSH 

B 

BC = RETURN ADDR. 

F 635 

C9 

3542 


RET 

» 


F 636 

215201 

3545 

PUSHA 

L X I 

H.STKLMT 

*** PUSHA *** 

F 639 

CDCEF4 

3547 


CALL 

CHGSGN 


F63C 

Cl 

3549 


POP 

B 

BC=R E TURN ADDRESS 

F63D 

39 

3551 


DAO 

SP 

IS STACK NEAR THE TOP? 

F63E 

D25DF5 

3553 


JNC 

GSORRY 

YES. SORRY FOR THAT. 

F 641 

2ABD00 

3555 


LHLD 

LOPVAR 

ELSE SAVE LOOP VAR.S 

F 644 

7C 

3557 


MOV 

A.H 

BUT IF LCPVAR IS 0 

F645 

85 

35 59 


ORA 

L 

THAT WILL BE ALL 

F 646 

CA5CF6 

3561 


JZ 

PU1 


F649 

2AC500 

3563 


LHLD 

LOPPT 

ELSE, MORE TO SAVE 

F64C 

E5 

3565 


PUSH 

H 


F 640 

2AC300 

3567 


LHLD 

LOPLN 


F 650 

E5 

3569 


PUSH 

H 
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F651 

2AC100 

3571 


LHLD 

LOPLMT 


F654 

E5 

3573 


PUSH 

H 


F 655 

2ABF00 

3575 


LHLD 

LOPINC 


F658 

E5 

3577 


PUSH 

H 


F 659 

2ABD00 

3579 


LHLD 

LCPVAR 


F65C 

E5 

3501 

PU1 

PUSH 

H 


F 650 

C5 

3563 


PUSH 

B 

BC = RETURN AODR 

F65E 

C9 

3585 


RET 

• 


F65F 

2A0020 

3587 

LOCR 

LHLD 

TXTUNF 


F 662 

2B 

3589 


OCX 

H 


F663 

2B 

3591 


OCX 

H 


F 664 

* 

C9 

3593 


RET 

. 



********************************************************************** 

* 

* *** PRTSTG *** QTSTG *** PRTNUM *** & PRTLN *** 

* 

* •PRTSTG* PRINTS A STRING POINTED BY DE. IT STOPS PRINTING AND 

* RETURNS TO CALLER WHEN EITHER A CR IS PRINTED OR WHEN THE NEXT BYTE 

* IS ZERO. REG. A ANC fl ARE CHANGEO. REG. DE POINTS TO WHAT FOLLOWS 

* THE CR OR TO THE ZERO. 

* 

* ‘QTSTG* LOOKS FOR UP-ARROW. SINGLE QUOTE. OR DOUBLE QUCTE. IF NONE 

* OF THESE. RETURN TO CALLER. IF UP-ARROW. OUTPUT A CONTROL 

* CHARACTER. IF SINGLE OR DOUBLE QUOTE. PRINT THE STRING IN THE QUOTE 

* AND DEMANDS A MATCHING UNQUOTE. AFTER THE PRINTING THE NEXT 3 BYTES 

* OF THE CALLER IS SKIPPED OVER IUSUALLY A JUMP INSTRUCTION). 

* 

* ‘PRTNUM• PRINTS THE NUMBER IN HL. LEADING BLANKS ARE ADDED IF 

* NEEDED TO PAD THE NUMBER OF SPACES TO THE NUMBER IN C. HOWEVER. IF 

* THE NUMBER OF DIGITS IS LARGER THAN THE « IN C. ALL OIGITS ARE 

* PRINTED ANYWAY. NEGATIVE SIGN IS ALSO PRINTED AND COUNTED IN. 

* POSITIVE SIGN IS NOT. 

* 

* "PRTLN* FINDS A SAVED LINE. PRINTS THE LINE * ANO A SPACE. 

* 


F 665 

97 

3620 

PRTSTG 

SUB 

A 

*** PRTSTG *** 

F666 

47 

3622 

PS1 

MOV 

B. A 


F 667 

1A 

3624 

PS2 

LOAX 

0 

GET A CHARACTER 

F 668 

13 

3626 


I NX 

D 

BUMP POINTER 

F 669 

B8 

3628 


CMP 

B 

SAME AS CLO A 7 

F66A 

C8 

3630 


RZ 

• 

YES. RETURN 

F66B 

CD95F7 

3632 


CALL 

CUTCH 

ELSE PRINT IT 

F66E 

FEOD 

3634 


CPI 

scr 

WAS IT A CR? 

F670 

C267F6 

3636 


JNZ 

PS2 

NO, NEXT 

F 673 

* 

C9 

3638 


RET 

• 

YES. RETURN 

F 674 

CDBBF5 

3641 

QTSTG 

TSTC 

•*** . GT3 

*** QTSTG *** 

F 677 

22 

3643 





F678 

OF 

3644 





F 679 

3E22 

3645 


MV I 

A,**** 

IT IS A " 

F67B 

CD66F6 

3647 

QT1 

CALL 

PS I 

PRINT UNTIL ANOTHER 

F67E 

FEOD 

3649 

QT2 

CPI 

aCR 

WAS LAST ONE A CR? 

F 660 

El 

3651 


PUP 

h 

RETURN ACORESS 

F 601 

CA11 FI 

36 5 3 


JZ 

RUNNXL 

WAS CR. RUN NEXT LINE 

F 684 

23 

3655 


INX 

H 

SKIP 3 BYTES ON RETURN 

F 685 

23 

3657 


I NX 

H 


F 686 

23 

3659 


INX 

H 


F 687 

E9 

3661 


PCHL 

. 

RETURN 

F 688 

CD8BF5 

3663 

CT3 

TSTC 

027H.QT4 

IS IT A H ? 

F66B 

27 

3665 





F68C 

05 

3666 





F68D 

3E27 

36 6 7 


MV I 

A.027H 

YES. 00 SAME 

F68F 

C378F6 

3669 


JMP 

QTl 

AS IN " 

F 692 

CDBBF5 

3671 

QT4 

TSTC 

05EH.QT5 

IS IT AN UP-ARROW? 

F 695 

5E 

3673 





F696 

OB 

3674 





F 697 

1A 

3675 


LDAX 

D 

YES. CONVERT CHARACTER 

F 698 

EE 40 

3677 


XR I 

04 OH 

TO CONTRCL-CH. 

F69A 

CD95F7 

3679 


CALL 

CUTCH 


F 690 

1A 

3681 


LDAX 

0 

JUST IN CASE IT IS A CR 

F69E 

13 

3683 


INX 

0 


F69F 

C37EF6 

3685 


JMP 

QT 2 


F6A2 

C9 

3687 

QT 5 

RET 

• 

NONE CF ABC VE 

F 6 A3 

7B 

36e9 

PRTCHS 

MOV 

A . E 
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F 6 A4 

B8 

3691 


CMP 

e 

F6A5 

C8 

3693 


RZ 

. 

F6Afc 

1A 

3695 


LDAX 

D 

F6A7 

CD95F7 

3097 


CALL 

CUTCH 

F6AA 

13 

3699 


I NX 

C 

F t> AB 

A 

C3A3F6 

3701 


J MP 

PR T CHS 



3704 

PRTNUM 

DS 

0 

F6AE 

0600 

3706 

PN3 

MV 1 

6.0 

F6B0 

CDCBF4 

3708 


CALL 

CHKSGN 

F6B3 

F2B9F6 

3710 


JP 

PN4 

F 6B6 

06 2D 

3712 


MVI 


F6B8 

00 

3714 


OCR 

c 

F6B9 

05 

3716 

PN4 

PUSH 

D 

F6BA 

110A00 

3716 


LXI 

D.10 

F6BD 

05 

3720 


PUSH 

D 

F6BE 

OD 

3722 


OCR 

C 

F6BF 

C5 

3724 


PUSH 

B 

F6C0 

CDAEF4 

3726 

PN5 

CALL 

DIVIDE 

F 6C 3 

78 

3728 


MOV 

A.d 

F6C4 

31 

3730 


ORA 

C 

F6C5 

CAD0F6 

3732 


JZ 

PN6 

F6C8 

E 3 

3734 


X THL 


F6C9 

20 

3736 


OCR 

L 

F6CA 

£5 

3738 


PUSH 

H 

F6CB 

60 

3740 


MOV 

H.B 

FfcCC 

69 

3742 


MOV 

L.C 

F6CD 

C3C0F6 

3744 


J MP 

PN5 

F6D0 

Cl 

3746 

PN6 

POP 

B 

F 601 

00 

3748 

PN7 

OCR 

C 

F6D2 

79 

37 5 C 


MOV 

A . C 

F 603 

87 

3752 


ORA 

A 

F6D4 

FAOFF6 

3754 


JM 

PN8 

F607 

3E20 

3756 


MVI 

A. • • 

FeD9 

CD95F7 

3758 


CALL 

CLTCH 

F 6 DC 

C3D1F6 

3760 


J MP 

PN 7 

F6DF 

73 

3762 

PN8 

MOV 

A.e 

F6E0 

B7 

3764 


ORA 

A 

F6E1 

C495F7 

3766 


CNZ 

CUTCH 

F6E4 

50 

3768 


MOV 

E.L 

F6E5 

7B 

3770 

PN9 

MOV 

A.E 

F6E6 

FEOA 

3772 


CPI 

10 

F6E8 

01 

3774 


POP 

C 

F6E9 

CB 

3776 


RZ 

. 

F6EA 

C630 

3778 


ADI 

•c* 

F6EC 

CD95F7 

3780 


CALL 

CUTCH 

F6EF 

A 

C3E5F6 

3782 


J MP 

PN9 

F6F2 

1A 

3785 

PRTLN 

LDAX 

D 

F 6F3 

6F 

3787 


MOV 

L.A 

F6F4 

13 

3789 


I N X 

D 

F6F5 

1A 

3791 


LDAX 

C 

F6F6 

67 

3793 


MOV 

H . A 

F6F7 

13 

3795 


I NX 

0 

F6FB 

OE 04 

3797 


MVI 

C.4 

F6FA 

CDAEF6 

3799 


CALL 

PRTNUM 

F6FD 

3E20 

3801 


MVI 

A. • • 

FoFF 

CD95F7 

3803 


CALL 

CUTCH 

F 7 02 

4 

C9 

3805 


RET 

* 

4 

F 703 

4C 495354 

3809 

TAB1 

ITEM 

•LI5T*»LIST 

F 707 

FI 3B 

3811 



F 7 09 

4E4557 

3812 


ITEM 

•NEW•.NEW 

F70C 

FOFF 

3814 




F70E 

52554E 

3815 


I TEM 

•RUN•.RUN 

F 7 11 

F10B 

3817 




F 71 3 

4E 455854 

3816 

TAB2 

I TEM 

•NEXT*.NEXT 

F 717 

F269 

3320 




F 719 

4C4554 

3821 


I TEM 

•LET*.LET 

F71C 

F34D 

3623 




F71E 

4946 

3824 


ITEM 

•IF* .IFF 

F 720 

F2D0 

3826 




F 7 22 

474F544F 

3827 


ITEM 

•GOTO*.GOTO 

F726 

FI 2A 

3829 
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444 PRTNUM 444 

B=SIGN 
CHECK SIGN 
NO SIGN 
B=SIGN 

TAKES SPACE 

DECIMAL 

SAVE AS A FLAG 
C = SP ACES 

SAVE SIGN & SPACE 
DEVIOE HL BY 10 
RESULT 07 

YES. WE GOT ALL 
NO. SAVE REMAINDER 
AND CCUN T SPACE 
HL IS OLC 0C 
MOVE RESULT TO BC 

AND DIVIDE BY 10 
WE GOT ALL DIGITS IN 
THE STACK 

LOOK AT SPACE COUNT 

NO LEADING BLANKS 
LEADING BLANKS 

MCRE 7 

PRINT SIGN 

MAYBE - CR NULL 
LAST REMAINDER IN E 
CHECK DIGIT IN E 
10 IS FLAG FOR NO MORE 

IF SC. RETURN 
ELSE COVERT TO ASCII 
AND PRINT THE DIGIT 
GO BACK FOR MORE 

444 PRTLN 444 
LOW ORDER LINE * 

HIGH ORDER 


PRINT 4 DIGIT LINE * 
FOLLOWED BY A BLANK 


DIRECT COMMANDS 


DIRECT/STATEMENT 



F 728 
F72D 

474F535542 

F1C5 

3830 

3832 


ITEM 

•GOSUB*.GOSUB 

F72F 

F 733 

52455455 

524EF1E7 

3833 

3835 


ITEM 

•RETURN*.RETURN 

F 7 37 
F 73 A 

524540 

F2CA 

3836 
38 38 


ITEM 

•REM*.REM 

F73C 

F73F 

464F52 

F202 

3839 

3641 


I T£M 

•FOR•.FOR 

F 741 

F 746 

4V4E505554 
F2EB 

3842 

3844 


ITEM 

•INPUT*.INPUT 

F 748 
F74D 

5052494E54 

F16B 

3845 

3847 


ITEM 

•PRINT*.PRINT 

F74F 
F 753 

53544F50 

FI 05 

3846 

385C 


ITEM 

•STOP*.STOP 

F 755 

F7 57 

3851 


ITEM 

.MOREC 

4444444444444444444444 

F 757 

C347F3 

3853 

MOREC 

JMP 

DEFLT 444 JMP USER-COMMAND *44 

4444444444444444444444 

F75A 

F 750 

524E44 

F46B 

3855 

3857 

TAB3 

ITEM 

•RND•,RNC FUNCTIONS 

F75F 
F 762 

414253 

F 498 

3858 

3860 


ITEM 

•ABS*.ABS 

F 764 
F 768 

53495A45 

F4A1 

3861 

3863 


ITEM 

•SIZE*.SIZE 

F76A 

F76C 

3864 


I TEN 

.MQREF 

44444444444444444444444 

F76C 

C349F4 

3866 

MOREF 

JMP 

NO TF 444 JMP USER-FUNCTION 444 

44444444444444444444444 

F76F 
F 771 

54 4F 

F212 

3868 
38 70 

TAB4 

ITEM 

•TO'.FRl "FOR** COMMAND 

F 773 

F530 

3871 


ITEM 

•QWHAT 

F 775 
F 77V 

53544550 

F21E 

3873 

3875 

TABS 

I TEM 

•STEP*.FR2 "FOR" COMMAND 

F77B 

F224 

3876 


ITEM 

,FR3 

F77D 

F77F 

3E3D 

F365 

3878 

3880 

TAB6 

ITEM 

• >=• .XP RI RELATION OPERATORS 

F 781 
F 782 

23 

F36B 

3881 

3883 


I TEM 

• 4• ,XPR2 

F 784 
F785 

3E 

F371 

3884 

3886 


ITEM 

•>• .XPR 3 

F 787 
F 788 

3D 

F380 

3887 

3889 


ITEM 

• = •.XPR5 

F78A 

F78C 

3C3D 

F378 

3890 

3892 


I TEM 

•<= * .XPR4 

F78E 

F78F 

3C 

F3&6 

3893 

3895 


ITEM 

•<•,XPR6 

F 791 

F38C 

38 96 


I TEM 

. XPR 7 



3898 

RANENO 

EQU • 

4 


4 

44444444444444444444*4**444444**»4444*4444*44*44444*4**4+4*44********* 
* 

* *4* INPUT OUTPUT ROUTINES 444 

* USER MUST VARIFY ANC/CJR MOOIFY THESE ROUTINES 

* 

4 ********************************************************************* 

4 

* *44 CRLF 444 OUTCH 444 

4 

* CRLF MILL OUTPUT A CR . ONLY A O FLAGS MAY CHANGE AT RETURN 

4 

4 OUTCH MILL OUTPUT THE CHARACTER IN A. IF THE CHARACTER IS CR. IT 
4 MILL ALSU OUTPUT A LF ANC THREE NULLS. FLAGS MAY CHANGE AT RETURN, 
4 OTHER REGISTERS DC NCT. 

4 

4 444 CHKIO 444 GETLN 444 
4 

4 CHKIO CHECKS TO SEE IF THERE IS ANY INPUT. IF NO INPUT. IT RETURNS 
4 MITH Z FLAG. IF THERE IS INPUT, IT FURTHER CHECKS WHETHER INPUT IS 
4 CONTROL-C. IF NOT CGNTROL-C, IT RETURNS THE CHARACTER IN A MITH Z 
4 FLAG CLEARED. IF INPUT IS CONTROL-C. CHKIC JUMPS TO •INIT* AND WILL 
4 NOT RETURN. ONYL A 6 FLAGS MAY CHANGE AT RETURN. 

4 

4 •GETLN• READS A INPUT LINE INTO •BUFFER*. IT FIRST PROMPT THE 

4 CHARACTER IN A (GIVEN EY THE CALLER). THEN IT FILLS THE THE BUFFER 
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* AND ECHOS. 6CAK—SPACE IS USED TO DELETE THE LAST CHARATER (IF THERE 

* IS ONE). CK SIGNALS THE END OF THE LINE. AND CAUSE ‘GETLN• TO 

* RETURN. WHEN BUFFER IS FULL. • GETLN* BILL ACCEPT BACK-SPACE OR CR 

* ONLY AND KILL IGNORE (AND KILL NOT ECHO) OTHER CHARACTERS. AFTER 

* THE INPUT LINE IS STORED IN THE BUFFER. TMO MORE BYTES OF FF ARE 

* ALSO STQRtD AND DE POINTS TO THE LAST FF. A E FLAGS ARE ALSO 
4 CHANGED AT RETURN. 

4 


F 793 

3E0D 

3937 

CRLF 

MV I 

A.OODH 

CR IN A 

********************* 

F 796 

C306F7 

3939 

DUTCH 

JMP 

aouTa 

*** JMP USER-OUTPUT *44 







********************* 

F 796 

C3ECF7 

3941 

CHKIO 

JMP 

aiNa 

4*4 JMP USER-INPUT 4*44 







********************* 

F79B 

IlCAOO 

3943 

GETLN 

LX I 

0.BUFFER 

***** MODIFY THIS 44*** 







44**444*4*4*444444*4* 

F79E 

CD95F7 

3945 

GL1 

CALL 

OUTCH 

PROMPT OR ECHO 

F7A1 

CD9BF7 

3947 

GL2 

CALL 

CHKIG 

GET A CHARACTER 

F7A4 

CAA1F7 

3949 


JZ 

GL2 

WAIT FOR INPUT 

F7A7 

FEOA 

3951 


CPI 

aLF 


F 7a9 

CAA1F7 

3953 


JZ 

GL2 


F7AC 

12 

3955 

GL3 

STAX 

0 

SAVE CH. 

F7AD 

FEOb 

3957 


CPI 

008H 

IS IT BACK-SPACE? 

F7AF 

C2BDF7 

3959 


JNZ 

GL4 

NO. MGfiE TESTS 

F7B2 

7B 

3961 


740 V 

A . E 

YES. DELETE? 

F7B3 

FECA 

3963 


CPI 

BUFFER.> 


F7B5 

CAA1F7 

3965 


JZ 

GL2 

NOTHING TO DELETE 

F7B6 

1A 

3967 


LDAX 

D 

DELETE 

F7B9 

IB 

3969 


OCX 

0 


F76A 

C39EF7 

3971 


JMP 

GL1 


F7BO 

FEOD 

3973 

GL4 

CPI 

acR 

MAS IT CR? 

F7BF 

CACDF7 

3975 


JZ 

GL5 

YES. END OF LINE 

F7C2 

7B 

3977 


MOV 

A.E 

ELSE. MORE FREE ROOM? 

F7C3 

FE4E 

3979 


CPI 

6UF END.> 


F7C5 

CAA1F7 

39 B1 


JZ 

GL2 

NO. *AIT FOR CR/RUB—OUT 

F7C8 

1A 

3983 


LDAX 

0 

YES. BUMF POINTER 

F7C9 

13 

3985 


INX 

D 


F7CA 

C39EF7 

3987 


JMP 

GL1 


F7CD 

13 

3989 

GL5 

INX 

0 

END OF LINE 

F7CE 

13 

3991 


INX 

D 

BUMP POINTER 

F7CF 

3EFF 

3993 


MV I 

A.OFFH 

PUT MARKER AFTER IT 

F7D1 

12 

3995 


STAX 

D 


F7D2 

IB 

3997 


OCX 

D 


F7D3 

C393F7 

3999 


JMP 

CRLF 


F7D6 

FS 

4001 

aouTa 

PUSH 

PSW 

OUTPUT ROUTINE 

F7D7 

DBCO 

4003 

DTI 

IN 

0 

PRINT MHAT IS IN A 

F7D9 

E6C1 

4005 


ANI 

0C1H 

TBE BIT 

F7Db 

CA07F7 

4007 


JZ 

CT1 

WAIT UNTIL READY 

F7DE 

FI 

4009 


POP 

PS* 


F7DF 

D301 

4011 


OUT 

1 


F7E1 

FEOD 

40 13 


CPI 

acR 

MAS IT CR? 

F7E3 

CO 

4015 


RNZ 

• 

NO. RETURN 

F7E4 

3E0A 

4017 


MV I 

A . aLF 

YES. GIVE LF 

F7E6 

CDD6F7 

4019 


CALL 

acuTa 


F7E9 

3E0D 

4021 


MV I 

A . acR 


F7EB 

C9 

4023 


RET 

. 


F7EC 

0800 

4025 

a I No) 

IN 

0 


F7EE 

E602 

4027 


ANI 

0 02H 

OAV BIT 

F7FO 

C8 

4029 


RZ 

. 

NO INPUT. RETURN ZERO 

F7F1 

DB01 

4031 


IN 

1 

CHECK INPUT 

F7F3 

E67F 

4033 


ANI 

07FH 


F7F5 

FE 03 

4035 


CPI 

C03H 

IS IT CONTROL-C? 

F7F7 

CO 

4037 


RNZ 

. 

NO. RETURN CH. 

F7F6 

C30CFO 

4039 


JMP 

INIT 

YES. RESTART 



4041 


END 
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CROSS RERERENCE 




SYMBOL 

VALUE 

OEFN 

REFERENCES 








£CR 

OOOO 

1 388 

1545 

1348 

1551 

15 54 

1 557 

1990 

2517 

3135 

3158 

3280 




3635 

3650 

3974 

4014 

4022 






SINS 

F7EC 

4026 

3942 










£LF 

COOA 

1385 

3952 

4018 









i OUT 2 

F 706 

4002 

3940 

4020 









AdS 

F 49 8 

2907 

3660 










AHUM 

F5FA 

3454 

1696 

2079 

2740 

2752 

2786 






ASORRY 

F55E 

3209 

3313 










A MHA T 

F 53 1 

3165 

2272 










BOTRAM 

2000 

1443 

1494 










BOTROM 

F 000 

1447 

1505 

1525 

2680 








BOTSCR 

0080 

1439 

14o2 










BUFEND 

0 14c 

1484 

3980 










BUFFER 

COCA 

1482 

1616 

2438 

3944 

3964 







CHGSGN 

F4CE 

3000 

2701 

2610 

3548 








CHKI a 

F798 

3942 

1881 

1972 

3948 








CHKSGN 

F4CB 

2993 

2718 

2722 

2770 

2774 

2911 

3709 





CKHLDE 

F4E3 

3037 

2330 

2638 









CK1 

F4E9 

3045 

3C4 1 










COMP 

F 4ED 

3050 

1700 

2274 

2876 

3045 

3311 

3475 





CRLF 

F 793 

3938 

1509 

1985 

1993 

2037 

3167 

4000 





CURRNT 

OOB 7 

1460 

1598 

1672 

2081 

2117 

2185 

2338 

2417 

2456 

2492 

2498 




3171 










LEFLT 

F 34 7 

2515 

3654 










OFTLMT 

4000 

1 445 

1521 










OIRECT 

FOCC 

1 748 

1626 










DIVIDE 

F4AE 

2949 

27 JO 

2896 

3727 








DVI 

F4B9 

2965 

2955 










CV2 

F4BB 

2967 

2971 










ENOCH* 

F 52 A 

3156 

1648 

1853 

185e 

1892 

1 950 

2099 

2442 




ERROR 

F 534 

3167 

32 11 

3456 









EXEC 

FCCF 

1751 

1787 

1885 

2167 

2175 

2560 

2817 





EXPR 

F35B 

2554 

lb88 

2C01 

2041 

2073 

2169 

2177 

2396 

2440 

2845 

3104 

EXPfil 

F3A3 

2649 

2554 

2632 









EXPR 2 

F3DF 

2706 

2661 

2669 

2699 








EXPR 3 

F 44 3 

2815 

2706 

2714 

2766 








EX1 

FDD 3 

1755 

1767 










EX2 

FOE 6 

1 777 

1781 










EX3 

F OF 0 

1789 

1761 










EX4 

F OF 2 

1 791 

1795 










EX5 

F OF 7 

1 797 

1775 










FIN 

F50F 

3126 

2C33 

3121 









F1NISFt 

F 50 9 

3121 

2C39 

2123 

2253 

2344 

2352 

2468 

2532 




F 11 

F518 

3134 

3128 










F I 2 

F 521 

3142 

31 36 










FLl 

F 57 £ 

3275 

3264 

5282 









F NDLN 

F564 

3233 

1652 

1694 

1 952 

2077 







FNOLP 

F56C 

3242 

1665 

1974 

5286 








F NON X T 

F 570 

3273 

1660 










FNDSKP 

F 57 F 

3278 

2404 










FOR 

F20 2 

2157 

3641 










FR1 

F 212 

2169 

3670 










FR2 

F 21E 

2177 

3675 










FR3 

F 224 

2161 

3677 










FRA 

F 227 

2183 

2179 










FR5 

F 24 1 

2207 

2223 

2229 









FR6 

F242 

2 2 C 9 

2205 










FR7 

F262 

2249 

221 5 










CETLN 

F 798 

3944 

1612 

2512 









GLl 

F79E 

3946 

3972 

39dd 









GL2 

F7A1 

3943 

39 5 C 

3954 

3966 

3982 







GL4 

F7BO 

3974 

3960 










GLB 

F 7C0 

3990 

3976 










GOSUd 

F1C5 

2071 

3632 










GOTO 

F 12 A 

1888 

3629 










HOW 

F 04 o 

1 553 

3454 










IFF 

F2D0 

2396 

3626 










IF 1 

F 20 3 

2396 

2393 










1GNBLK 

F 522 

3145 

1620 

1751 

3153 

31 56 

3289 

3365 

3 398 




INIT 

FOO 0 

1 507 

4C40 
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SYMBOL 

VALUE 

DEFN 

REFERENCES 








1NPERR 

F2E1 

241 1 

3139 









I NPU T 

F2E8 

c424 

24o6 

3644 








IP1 

F 2EB 

2426 

2490 









IF11 

F3c4 

2478 

2474 









I P12 

F32C 

2486 

2436 









1 P3 

F2F8 

2436 

2484 









IP5 

F 30c. 

2460 

2434 









IP7 

F 31 7 

2468 

246 4 









IPS 

F 31 A 

24 7 C 

2430 









KcYhRO 

G 08 0 

1454 

1511 









LcT 

F 340 

2522 

2530 

3623 








LIST 

F138 

1 936 

361 1 









LGCR 

F65F 

3586 

3315 









L CP INC 

OCoF 

1 47C 

2183 

2292 

3527 

3576 






LQPLMT 

00G1 

1 472 

2171 

2320 

3531 

3572 






LCPLN 

0CC3 

1 474 

2187 

2336 

3535 

3566 






LuPFT 

00C5 

1476 

2191 

2249 

2340 

3539 

3564 





L CPV AR 

0000 

1 466 

1602 

2 C 9 1 

2163 

2195 

2266 

2312 

3517 

3556 

3580 

LSI 

F 14 A 

1946 

1944 









LS2 

F 1 5 1 

1954 

1976 









LT4 

F 358 

2532 

2519 

2528 








MD1 

F61 3 

3502 

34 94 









MORE C 

F757 

3854 

36 5 2 









MGRtF 

F 76 C 

36e7 

36c 5 









MSG 

FC2F 

1 543 

1537 









MVDGWN 

F 60 8 

3490 

1708 

2245 

3510 







M VUP 

F 60 0 

3475 

16 66 

1714 

3487 







NEW 

F OF F 

1848 

3614 









NEXT 

F 269 

2256 

362 0 









NGTF 

F449 

2619 

3667 









NX1 

F 27 2 

2262 

2264 









NXC 

F26C 

2286 

2276 









N X3 

F29E 

2310 

2304 









N Xt 

F 2AE 

2330 

2326 









NX5 

F2C2 

2346 

23Co 









NX6 

F2C4 

2350 

2334 









GK 

F03F 

1 547 

1606 









CT1 

F 70 7 

4004 

4CC8 









GUTCH 

F 79 5 

3940 

2C29 

3201 

3633 

3660 

3698 

3759 

3767 

3781 

3804 3946 

PARK 

F45A 

2641 

2656 

2907 

3299 







PN4 

F6B9 

3717 

371 1 









PN5 

F6CC 

3727 

3745 









PN6 

F 60 0 

3747 

3733 









FN7 

F 601 

3749 

3761 









P NS 

F 60 F 

3763 

3755 









PN9 

F6ES 

3771 

3763 









PGPA 

FOI A 

351 3 

2121 

2 2 6 C 

235 C 







PP1 

F63 4 

3541 

3523 









PRINT 

F 160 

1 979 

3647 









PHTCHS 

F6A 3 

3690 

2482 

3X97 

3702 







PRTLN 

F6F2 

3786 

196S 

3191 








PRTNUM 

F6AE 

3705 

2C45 

380 0 








PRTSTG 

F 66 5 

3621 

1539 

1606 

1970 

3169 

3203 





PR 1 

F 178 

1 969 

1983 









PR2 

F1S3 

1 997 

2035 









PR4 

F 1 96 

2015 

1999 









PR5 

F 19C 

2019 

201 3 

2049 








PR6 

F 1 A 1 

2023 

1991 

2031 








PR7 

F1AE 

2033 

2025 









PRO 

F 184 

2037 

2C21 









FR9 

FISA 

204 l 

2 C1 7 









PS1 

F 666 

3623 

3648 









PS2 

F 66 7 

3625 

2637 









PURGE 

F 018 

1 529 

1650 









PUSHA 

F 63 6 

3546 

2 C 7 1 

2157 








PUI 

F 65 C 

3562 

3562 









QHUW 

F5F9 

3452 

2C09 

2691 

2804 

2862 

2666 

3026 

3237 

3303 

3412 

USQKRY 

F 550 

3207 

1702 

3554 








CTSTG 

F 67 4 

3642 

2015 

2428 








UTl 

F 67 3 

3646 

2670 









GTE 

F67E 

3650 

3686 
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SYMBOL 

VALUE 

DEFN 

REFERENCES 

GT3 

F688 

3664 

3644 


CT4 

F692 

3672 

3666 


GT5 

F6A2 

3688 

36 74 


Ci «HA T 

F 530 

3163 

2107 

2258 

RAMEND 

F 793 

3899 

2674 


RANPNT 

0 OC 7 

1478 

1527 

2672 

R A 1 

F488 

2882 

2878 


REM 

F2CA 

2391 

3638 


RETURN 

F 1 £ 7 

2099 

3835 


RND 

F 466 

2856 

3857 


R STAR T 

F053 

1594 

1541 

1684 

RUN 

F108 

1856 

381 7 


RUNNXL 

Fill 

1 863 

1995 

3140 

RUNSML 

F12 1 

1 881 

1987 

2402 

RUNTSL 

F 11 A 

1870 

1900 

2 C 9 7 

SETVAL 

F4F3 

3094 

2159 

2524 

SIZE 

F4A1 

2917 

3309 

3e63 

SORRY 

F04D 

1 556 

3209 


STACK 

0200 

1492 

1507 

1594 

STKGOS 

0 OB 9 

1462 

1604 

2085 

STKINP 

OOBB 

1 466 

241 1 

2504 

STKLMT 

0152 

1 466 

3546 


STOP 

F10 5 

1853 

3850 


ST1 

F05C 

1600 

1590 


ST2 

F06B 

1610 

1716 


ST3 

F0A2 

1 674 

1656 


SUtiDE 

F4C4 

2978 

2925 

2969 

SV1 

F50C 

3123 

3102 


TAB1 

F 703 

3810 

1748 


TA82 

F 71 3 

3819 

1683 


TAB3 

F7SA 

3656 

2815 


TAB4 

F76F 

3869 

2165 


TABS 

F775 

3874 

2173 


T AB6 

F77D 

3679 

2558 


TCI 

F5CB 

3385 

3371 


TELL 

F026 

1537 

1517 

3133 

TEXT 

2002 

1498 

1529 

1535 

TNI 

F5D6 

3400 

3450 


TOPSCR 

0200 

1441 

1490 


T STCH 

FSBB 

3363 

1942 

1981 




2663 

2693 




3664 

3672 

1STNUM 

F5CF 

3394 

1616 

1936 

T ST V 

F 589 

3289 

2256 

2432 

T VI 

F SAB 

3323 

3295 


TXTLMT 

0081 

1456 

1523 

1696 

TXTUNF 

2000 

1 496 

1531 

1664 

VARBGN 

0083 

1 458 

3331 


VARNXT 

OOBB 

1 464 

2260 

228 2 

WHAT 

F 04 2 

1 550 

3165 


XPRO 

F 46 8 

2653 

2643 

2849 

XPR1 

F365 

2562 

3880 


XPR2 

F36B 

2570 

3883 


XPR3 

F 371 

2578 

3886 


XPR4 

F378 

2588 

3692 


XPR5 

F3B0 

2600 

38 8 9 


XPR6 

F386 

2608 

3695 


XPR7 

F38C 

2616 

3697 


XPR8 

F38E 

2o20 

2562 

2570 

XPR9 

F467 

2851 

2695 

2762 

XP1 1 

F3AE 

2657 

2651 


XP12 

F 38 3 

2661 

2659 


XP13 

F3B6 

2663 

2685 

2689 

XP14 

F 38 F 

2671 

2703 


XP15 

F3D0 

2693 

2665 


XP1 6 

F 3D 5 

2697 

2655 


XP21 

F3E2 

2708 

2812 


XP22 

F401 

2742 

2732 


XP23 

F409 

2750 

2756 


XP24 

F41 4 

2760 

2710 


XP25 

F435 

2798 

2748 

2758 

XP32 

F *34 

2833 

2821 



2476 2853 3096 3123 3872 
2888 


1855 1867 1954 1962 2408 

3654 

3132 

2406 


2095 2101 2113 


3205 

1860 3239 


1989 1997 2019 2023 2462 2526 
2706 2760 2841 2847 3100 3126 

1946 2833 
2472 2819 3094 

2923 

1672 1676 1704 2917 3588 


2578 2588 2600 2608 


2649 2657 
3134 3642 
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PALO ALTO TINY BASIC V3.0 OBJECT CODE 

: 1CF 00000310002CD93F72180003EC3BECA26FO7721004022810C3EF032C8002166 
: 1CF 01CG 006 2 0 22 00 20 26FF220 2 2 0112FF0CD6 5F6C 353F054494E59204241S349 26 
:1CF 0 3800432056 332E 30 CD4F 48 0057484154 3F0O4 84F57 3F0D 5 34F 525259003127 
: 1CF054000002215DF022870021000022BD00228900113FF0CD65F63E3ECD9BF739 
: 1CF0 70000511CA 00CDCFF5CD2 2F5 7CB5C1CACCFO1B7C121B7Q12C5 C57993F5CD2C 
;1CFOSC G064F 5DSC2A2F0 C5CD 70F5C12A0020CDQOF66069220020C12A0020F1E518 
:1CFOA800FE03CA53F0855F3E008C572A8 10 0 EBCDE0F40250F522002001COOBF6FO 
Z 1CF 0C400D1E1CO00F6C36BFO2102F7C022F5D51A13FE2ECAF0F023EECA03F03EIB 
:1CFOE0007F1BBEOAF7F 023BEO2E6F 02301C3CFF0 3 E7F23 BED2F 2F0 7 E236EE6FF B6 
Z 1CF OFC0067F1E9CD2AF5C31BFOC02AF5C353F0CD2 AF5110220210000CD6CF5OAC3 
;1CF1180 053F0 EB22 B7 00 E B1313C098F72112F7C3CFF0CO5BF3D5CD2AF5C064F5B9 
J1CF13400C2FAF5F1C31AF1CDCFF5E52IFFFFCDBBF52C0 3CDCFF5E3CD2AF5C064 70 
11CF1500CF50A 53F 0E37C BSCA5 3F 0 2BE3C 0F2F 6C06 5F6C09 8F7CD6CF 5C351FIOE E8 
: 1CF1OC0008CDBBF 53B 0 6CD 93F 7C321F1C DBBF 50D24C093F7C311F1CD3BF5230E1D 
:ICF18800CD5BF33EC0A5B4C2F9F54DC39CF1CD74F6C3BAF1 CDBEF52C13CD8BF5CE 
:1CF1A400 2C 0 83E 20CD 95F7C3A1F1CD0FF 5C383F1C093F 7C309F 5C0 5 BF 3C5COAE94 
:1CF1C0G0F6C1C39CF1CD36F6C058F305C064F5C2FAF52AB700E52AE900E52100 BO 
:1CF10C000022B0003922G900C31AF1CD2 AF52A89007CB5CA30F5F9E122B900 El 01 
:1CF1F80C22B700 01CD1AFfcC309F5CD36F6C0F3F42B22BD00216EF7 C3CFF0CD5BCC 
:1CF 214OOF322C1002174F7C3CFF0C05BF 3C327F221010022BF002AE70022C300 3A 
i1CF230 OOEB 22C5 00 010A0C2A8D00E8606839C342F2097E23B6CA62F27E2BBAC278 
:1CF 24CGG41F27E BBC241F2EB210 00 0394440210AO019C00 BF6F92AC500EBC309BE 
:1CF26800F5CD69F5DA30F522BB00D5EB2ABD007CB5CA31F5CDEOF4CA8CF201CD12 
:1CF 2840G1AF62AB800C372F25E23562ABFOOE57CAA7A19FA9EF2ACF AC2F2EB2AFB 
I1CF2A00 OBDO 0 732 3722AC1OOF 16 7F2AEF 2EBC0E3 F4010AC4F2 2AC300 22B700 2A88 
:1CF28C0OC5 00EBC309F5E1D1CD1AF6C309F5210000C3D3F2CD5EF37CB5C221FI AC 
:1CF 20800CD 7FF5D 21AF1C353F 02ABBOOF 9E12 2B70 0 010105CD74F6C31AF3CD898A 
11CF2F400F50AOEF 3CD 2CF311CAOOCD5BF3CD2AF5D1EB732372E122B70001F1CD53 
J1CF31OOOBBF52C03C3EBF2C30 9F505C089F5D224F3C330F 543 01COA3F6C3F8F2 89 
:1CF 32C00C105EB2AB700E521EBF222B7O02100003922BB0005 3E20C5C39BF71A 09 
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